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CNKWAA.P1 6=DEC=8. SEQ 0002 
$675 .NLIST MC,MD,CND 
5676 “LIST ME 
5677 -ENABL ABS 
5678 -ENABL AMA 
| 5683 167400 $SwR= 167400 
| 5684 
, 5685 
| 5697 
| $701 
| §710 
| 5726 
| §727 
| 5728 TITLE Kuyt ta DISAGNOSTIC MAINDEC=11=CNKWA=A 
/ aD Z*COPYRIGHT (C) 1982 
} © [*DIGITAL EQUIPMENT CORP. 
| se 
/ @D 
ae S PROGRAM WAS ASSEMBLED SING THE PDP=11 MAINDEC SYSMAC 
(1) {SPACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 
mst) 000001 étn=1 
$730 .SBTTL OPERATIONAL SWITCH SETTINGS 
3* 
) 3* SWITCH USE 
(1) * 
(1) 3* 15 HALT ON E 
(1) * 14 LOOP ON T 
(1) 3* 13 INHIBIT ERROR TYPEOUTS 
(1) ie 11 INHIBIT ITERATIONS 
(1) it 10 BELL ON ERROR 
(1) i* 9 LOOP ON ERROR 
2 3* 8 LOOP ON TEST IN SWR<7:0> 
5732 .SBTTL TRAP CATCHER 
5733 
5734 000000 20 
5735 3*ALL UNUSED LOCATIONS FROM 4-776 CONTAIN A ‘*.+2°* 
5736 SAND “JSR PC RO" SEQUENCE TO CATCH ILLEGAL INTERRUPTS. 
5737 > ®AND INTERRUPT TS TO THE WRONG VECT 
5738 [*LOCATION 0 CONTAINS A 0 TO CATCH IMPROPERLY LOADED 
5739 7 *VECTORS. 
5749 000004 *=4 
5750 000004 017102 000200 .WORD I0TRD,200 ZHANDLE BUSS ERROR. 
5751 000174 21746 
5752 000174 000000 DISPREG: .WORD 0 SOFTWARE DISPLAY REGISTER. 
3733 000176 000000 SWREG: WORD 0 ::SOFTWARE SWITCH REGISTER. 
:5755 000100 000104 000200 000002 “WORD  104,200,2 r1F ‘SB EVENT'ON Q-BUS IS 
5756 SCONNECTED,WE NEED A WAY OF 
3737 IGNORING ITS INTERRUPTS. 
5759 000200 .=200 
5760 000200 000137 001506 CMP aa#START 
5761 000204 000137 001444 JNP asQSTART 
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wwvita DISAGNOSTIC 
ic CNKWAA.P11 16=DEC-82 15:38 TRAP CATC SEQ 0003 
$762 000 000137 014046 JMP a#O1Tsti 
3763 oat 000157 014136 JMP a#OlTST 
| 276% 000137 014216 JMP a#OlTST 
766 000230 .=230 
3767 000230 900157 001472 IB a*WSTART SWESTFIELD STARTING ADDRESS 
5769 000240 000137 001456 J aa#TSTSTR ZALL TESTER TESTS 
31F STARTED HERE. 
| air ALLOWS PRODUCTION TO EXERCISE 
5772 [UP TO 16 CLOCKS.NORMAL=4 
| 77 : .SBTTL BASIC DEFINITIONS 
| (1) js INITIAL ADDRESS OF THE STACK POINTER *e* 1100 eee 
(1) 001100 STACK= 1100 
(1) -EQUIV EMT,ERROR z:BASIC DEFINITION OF ERROR CALL 
(1 -EQUIV 107, SCOPE [BASIC DEFINITION OF SCOPE CALL 
(1) ; sMISCELLANEOUS DEFINITIONS 
(1) 009011 T= 3:CODE FOR HORIZONTAL TAB 
(1) 000012 LF= 12 ::CODE FOR LINE FEED 
(1) 000015 R= 15 33CODE FOR CARRIAGE 
1) 000200 CRLF= 200 [CODE FOR CARRIAGE RE TURNLINE FEED 
(1) 177776 PS= 177776 : PROCESSOR STATUS WORD 
(1) 177774 STKLMT= 177774 z:STACK LIMIT REGISTER 
(1) 177772 PIRQ= 1777 7:PROGRAM INTERRUPT REQUEST REGISTER 
(1) 177570 DSWR= 1775 33HARDWARE SWITCH REGISTER, 
(1) 177570 DDISP= 177570 HARDWARE DISPLAY REGISTE 
(1) eS THE FOLLOWING ODT’ START ADDRESS FOR SBC 14721 IS ADDED 
(1) 170000 ODTST= 170000 
1) >*GENERAL PURPOSE REGISTER DEFINITIONS 
(1) 000000 RO= 20 Z:GENERAL REGISTER 
(1) 000001 Ri= 21 T:GENERAL REGISTER 
(1) 000002 R2= T:GENERAL REGISTER 
(1) 000003 R3= [:GENERAL REGISTER 
eh 000004 R4= 24 [GENERAL REGISTER 
(1) 000005 R5= t T:GENERAL REGISTER 
(1) 000006 R6= 26 T:GENERAL REGISTER 
(1) 000007 R7= 27 [:GENERAL REGISTER 
(1) SP= S:STACK POINTER 
(1) 000007 PC= 27 3: COUNT 
(1) >*PRIORITY LEVEL DEFINITIONS 
(1) 000000 PRO= OO :;PRIORITY LEVEL 0 
(1) 000040 PRi= 40 [PRIORITY LEVEL 1 
(1) 000100 PR2= 100 [PRIORITY LEVEL : 
(1) 000140 PR3=  -:140 [PRIORITY LEVEL 
(1) 200 PR&= [:PRIORITY LEVEL 4 
(1) 000240 PRS= 40 : PRIORITY LEVEL 5 
(1) 300 PR6= 00 ::PRIORITY LEVEL 7 
(1) 000340 PR7= 0 >:PRIORITY LEVE 
(1) SWITCH REGISTER" SWITCH DEFINITIONS 
(1) 100000 éy1s= 100000 
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CNKWAA.P11 —- 16=DEC-82 15:38 BASIC DEFINITIONS SEQ 0004 
a) 040000 swi4= 40000 
(1) 020000 Sw13= 20000 
q) 010000 Swi2= 10000 
| @ 000 Swil= 4000 
| a) 002000 Sw10= 2000 
/ 001000 swo9= 1000 
/  @) 00 Swo8= 400 
| @) 000200 sw07= 200 
, @ 000100 sw06= 100 
| a) 000040 su0S= 40 
q) 000020 Sw04= 20 
| (1) 000010 sw03= 10 
| (1) 000004 SwO2= 4 
a) 000002 SwOl= 2 
| (1) 0000017 swo0= 1 
(1) -EQUIV SWO09,SW9 
; @ -EQUIV $WO08.SW8 
a) sEQUIV SWO7,SW7 
a) -EQUIV SW06,SW6 
(1) -EQUIV SwWO0S,SW5 
a) -EQUIV SwW04, 
: aoe SEQUIV $W03.SW3 
(1) SEQUIV - 
(1) SEQUIV SWO1.SW1 
(1) SEQUIV v 
a) :*DATA BIT DEFINITIONS (BITOO TO B1T15) 
1) 100000 BIT15= 10000 
(1) 040000 BITI4= 4 
(1) 920000 BIT13= 20000 
(1) 010000 BIT12= 10000 
(1) 004000 BIT11= 4000 
(1) 002000 BIT10= 2000 
a) 001000 BITO9= 1000 
(1) 000400 BITOB= 400 
(1) 000200 BITO7= 200 
(1) 000100 BIT06= 100 
(1) 000040 BITOS= 40 
(1) 000020 BIT04= 20 
(1) 000010 BITO3= 10 
(1) 000004 BITO2= 4 
(1) 000002 BITOI= 2 
(1) 000001 B1T00= 
1) -EQUIV BITO9,B1T9 
(1) -EQUIV B1T08.B1T8 
(1) -EQUIV B1T07.BIT 
(1) “EQUIV BIT06.B1T6 
(1) -EQUIV BITOS.BITS 
(1) sEQUIV BI1T04.B1T4 
(1) -EQUIV 81T03.B1T3 
(1) -EQUIV B1T02.B1T2 
(1) -EQUIV 81T01.B1T1 
(1) -EQUIV B1T00.B1TO 
(1) -*BASIC "CPU" TRAP VECTOR ADDRESSES 
(1) 000004 ERRVEC= 4 z: TIME OUT AND OTHER ERRORS 
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‘KWV1TA DISAGNOSTIC MA 
Pll: 16=DEC BASIC DEFINITIONS SEQ 0005 


/CNKWAA, F 
mM 000010 RESVEC= 10 3: RESERVED AND ILLEGAL INSTRUCTIONS 
| 000014 TBITVEC=14 Fi IT 
Bas: 000014 TRIVEC= 14 STRACE TRAP 
i @ 000014 BPTVEC= 14 ; BREAKPOINT TRAP (BPT) 
. @ 000020 1OTVEC= z3 INPUT out PUT TRAP (IOT) **SCOPEee 
on 000024 PWRVEC= 24 33 FAIL 
om 30 EMTVEC= :TERULATOR TRAP (EMT) *eERRORe* 
, @ 000034 TRAPVEC= 33" TRAP’’ TRAP 
, @ TKVEC= 60 Z:TTY KEYBOARD VECT 
(1) 000064 TPVEC= 64 TTY PRINTER VECTOR 
| a1) peeeee THE FOLLOWING andi VECTOR AND LINE CLOCK VECTOR ARE INCLUDED 
' 6a) 000100 ikvEC= 100 33 CLOCK VECTOR 
, @ 000140 BRKVEC= 140 [BREAK VECTOR 
| 5h ) 000240 PIRQVEC=240 [PROGRAM INTERRUPT REQUEST VECTOR 
5776 174420 ABASE= 174420 ZVER:0 
| 577? 000240 AVECTI= 240 :VER:0 
778 APRIOR= 200 
5780 167400 $SWR= 167400 
3781 000001 $TN= 1 
5783 .SBTTL ACT11 HOOKS 
(2) J SRS SSS AS SASHA HSA SESS SSS H HEHE E HEE EAEHAAAAAHEEAEEAAEEAEAEEEEEEEE 
(1) tHOOKS REQUIRED BY ACT11 
(1) 000244 $SVPC=. ZSAVE PC 
a) 900046 (266 
(1) 000046 015720 SENDAD z21)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
(1) 000052 000000 “WORD 0 s32)SET Loc. 2 TO ZERO 
(1) 000244 .=$SVPC t: RESTORE P 
5784 001000 -=1000 
5785 .SBTTL APT PARAMETER BLOCK 
(2) 3 2 SKEKSSSSSSSSASSAATSKTSASSSASATAESESSSAAAAAAAAAAAAAARAAEAAAAAEKRAEAEEEEEE 
(1) :SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(2) FAAS ESSA AAA AHS SSS AS SSS SASS AAA AA AAAE AAA AAAAAAAEAAEEAEEEEEAEEE 
(1) 001000 »$X=.  53SAVE CURRENT LOCATION 
(1) 000024 226 3SET POWER FAIL TO POINT TO START OF PROGRAM 
(1) 000024 000200 200 22FOR APT START 
(1) 000044 .244 | ::POINT TO APT INDIRECT ADDRESS PNTR. 
(1) 000044 001000 SAPTHDR ::POINT TO APT HEADER BLOCK 
(1) 001000 -=.$X ::RESET LOCATION COUNTER 
(2) : SSS lKSS eee ee eee eee eeeeee eee eee ee eee aeageeageeaeeaeeaeeaeeeeeeeeeeeee 
(1) TUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
a ? T INTERFACE SPEC. 
(1) 001000 SAPTHD: 
(1) 001000 SHIBTS: .WORD 0 z:TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(1) 001002 001174 SMBADR: .WORD S$MAIL :;:ADDRESS OF APT MAILBOX (BIT § STS) 
(1) 001004 STSTM: WORD 7 [RUN TIM OF LONGEST TEST 
(1) 001006 600970 SPASTM: .WORD -  22RUN TIME IN SECS. OF 1ST PASS ON 7 UNIT (QUICK VERIFY) 
(1) 001010 000170 SUNITM: .WORD 120. 5{ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(1) 001012 000031 -WORD SETEND-SMAIL/2 :;LENGTH MAILBOX-E TABLE (WORDS) 


ee 


—_——__- SF eS ee eC. 


G1 
KWVTTA DISAGNOSTIC Tien: MACY11 30(1046) 16-DEC-82 15:42 PAGE 57-4 
EC 15:38 COMMON TAGS 


CNKWAA.P11 16-0 SEQ 0006 


a -SBTTL COMMON TAGS 

(2) FF SAAS A AAA A SAAS SSS S SESS TSS KEKE HEHE AEE EEHAEHAEEEEEAEREREEEEEEE 
(1) *THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

38 7*USED IN THE PROGRAM. 

(1) 001100 -=1100 

(1) 001100 SCMTAG: zzSTART OF COMMON TAGS 

(1) 001100 000000 0 

(1) 001102 000 STSTNM: .BYTE 0 3s;CONTAINS THE TEST NUMBER 

(1) 001103 000 SERFLG: .BYTE 0 2sCONTAINS ERROR FLAG 

(1) 001104 000000 SICNT: .WORD 0 3;CONTAINS SUBTEST ITERATION COUNT 
(1) 001106 000000 PADR: .WORD 0 ssCONTAINS SCOPE LOOP ADDRESS 

(1) 001110 000000 PERR: .WORD 0 ssCONTAINS SCOPE RETURN FOR ERRORS 
(1) 001112 000000 SERTTL: .WORD 0 ssCONTAINS TOTAL ERRORS DETECTED 
(1) 001114 000 SITEMB: .BYTE 0 ssCONTAINS ITEM CONTROL BYTE 

(1) 001115 001 RMAX: .BYTE 1 33C ° S PER TE 

(1) 001116 000000 SERRPC: .WORD 0 33 CONT PC OF LAST ERROR INSTRUCTION 
(1) 001120 000000 ADR: .WORD 0 ssCONTAINS ADDRESS OF ‘GOOD* 

(1) 001122 000000 SBDADR: .WORD 0 ssCONTAINS ADDRESS 4 *BAD* DATA 
(1) 001124 000000 AT: .WORD 0 3sCONTAINS ‘GOOD* DAT 

(1) 001126 000000 SBDDAT: .WORD 0 zsCONTAINS “BAD* DATA 

(1) 001130 000000 WORD 0 3sRESERVED--NOT TO BE USED 

(1) 001132 000000 -WORD 0 

(1) 007134 000 TOB: .BYTE 0 ssAUTOMATIC MODE INDICATOR 

(1) 001135 000 SINTAG: .BYTE 0 3 INTERRUPT MODE INDICATOR 

(1) 001136 000000 -WORD 0 

(1) 001140 177570 H WORD DS ssADDRESS OF SWITCH REGISTER 

(1) 001142 177570 DISPLAY: . DDISP ssADDRESS OF DISPLAY REGISTER 

(1) 001144 177560 TKS: 177560 ssTTY KBD STATUS 

(1) 001146 177562 $TKB: 177562 zsTTY KBD BUFFER 

(1) 001150 177564 $TPS: 1775 zzTTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 STPB: 177566 zs TTY PRINTER BUFFER REG. ADDRESS 
(1) 001154 000 L: .BYTE 0 3sCONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 SFILLS: .BYTE 2 

(1) ;;CONTAINS # OF FILLER CHARACTERS eg i 

(1) 001156 012 SFILLC: .BYTE 1 ssINSERT FILL CHARS. AFTER A “LINE FEED" 
(1) 001157 000 STPFLG: .BYTE 0 33° "TERMINAL Me . i (BI T<07>=0=VES) 
(1) 001160 000000 STIMES: 0 33MAX. NUMBER OF ITERATION 

(1) 001162 000000 SESCAPE :0 3sESCAPE ON ERROR ADDRESS 

(1) 001164 177607 000377 SBELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 

(1) 001170 077 S$: .ASCII /2/ 3 QUESTION 

(1) 001171 015 SCRLF: ASCII <15> 3 CARRIAGE RETURN 

(1) 001172 000012 eASCIZ <12> ssLINE FEED 

(2) 3 j Reeeeeccececerererereceecerececereeeeeecerereeeerereeeereterece 
(3) <SBTTL APT MAILBOX-ETABLE 

(3) FF AAAS SSS SAH SASHA TESA HESS AAEAAAAETAHKREKAHHEAAKAAASKALAEAEE 
(2) -EVE 

(2) 001174 IL: 3;APT MAILBOX 

(2) 001174 600000 SMSGTY: .WORD AMSGTY yt ge TYPE CODE 

(2) 001176 000000 ATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 

(2) 001200 000000 STESTN: .WORD ATESTN ;;TEST 

(2) 001202 000000 ASS: .WORD APASS ;;PASS C 

(2) 001204 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 

(2) 001206 000000 IT: .WORD AUNIT [31/0 UNIT R 


ee ee eee 
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88 


iestestes & 


174420 


E 


r ee 


APT MAILBOX-E TABLE 


SGAD: AMSGAD 
SMSGLG: .WORD  AMSGLG 
TABLE: 
SENV:  .BYTE AENV 
SENVM: .BYTE AENVM 
-sENVIRONMENT MODE BIT 
SSWREG: . ASWREG 
SUSWR: . AUSWR 
SCPUOP: . AC 
-@ 
Se 
3* 
3* 
:t 
*@ 

Si: .BYTE AMAMS1 
SMTYP1: .BYTE AMTYP1 
-@ 
ce 
t* 

-@¢ 
SMADR1: .WORD AMADR1 
-@« 
$MAMS2: .BYTE 
SMTYP2: .BYTE AMTYP2 
SMADR2: D  AMADR2 
SMAMS3: .BYTE AMAMS3 
SMTYP3: .BYTE AMTYP 
SMADR3: . AMADR 
SMAMS4: .BYTE AMAMS4 
SMTYP4: .BYTE AMTYP4 
he AMADR4 
SVECT1: .WORD AVECT1 
SVECT2: .WORD AVECT2 
SBASE: ABAS 


SDEVM: .WORD 
$CDW1: .WORD ACDw!1 
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3 MESSAGE on ty 
ti 


; : ENVIRONMENT BYT 


: FUSER S 
:CPU TYPE,OPT 10 
bits Is-11¢pu T 


GH 
A. 
GH 


AGE LENG 
T ENVI ROWPENT TABLE 


ADDRESS ,BLK# 


s 
33APT ot REGISTER 
WITCHES 


YPE 
1404201 ,11/05=02,11/20=03,11/40=04 ,11/45=05 
1/70=06, 0 


LAST ADDOR.=3 Bytes, -THIS WORD AND LOW OF ‘‘TYPE** ABOVE 


ADDRESS.M.S. BYT 
: MEM. TYPE BLK 


-BLK#2 
+ sMER.LAST ADDRESS ,BLK#2 
GH _ADDRE 


17 eet 
sien. TYPE .BLK# 

M.LAST ADDRESS .BLK#3 
GH_ADDRE 


3 INTERRUPT VECTOR#1 
ZZINTERRUPT VECTOR#2BUS PRIORITY#2 


SS.M.S.BYTE 
re 


kag 
-BUS PRIORITY#1 


- WORD E 
3;BASE ADDRESS OF doeice ms UNDER TEST 
ADEVM 


33 CONTROLLER DESCRIPTION WORD#1 


SEQ 0007 


ee ce SS 
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‘CNKWAA.P11 “DEC ERROR POINTER TABLE SEQ 0008 

a \SBTTL ERROR POINTER TABLE 
a THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
a <THE INFORMATION 15 OBTAINED BY USING THE INDEX NUMBER FOUND. IN 
eh 3 LOCATION SIiEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
1 oa SeNOTE1: 1f SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
| teNOTE2: EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOwS: 
aM :* EM ¢zPOINTS TO THE ERROR MESSAGE 
oa te OH INTS TO THE DATA HEADER 
| (1) te DT SIPOINTS TO THE DATA 

C) ie OF tIPOINTS TO THE DATA FORMAT 
| 6) 

(1) 001256 SERRTB: 

5787 

5792 

5798 SITEM 1 

5795 001256 017232 EM :CLOCK $R_FUNCTION ERROR 

5796 001260 017555 DH1 SERRPC ASR OWAS.CS/ 

5797 001262 017764 DTT :$SERRPC ASR, SBDDAT, SGDDAT 

5798 001264 020062 DFO TALL NUMBERS ARE iN OCTAL FORM 

5799 

5800 SITEM 2 

$802 001266 017264 Em2 sCLOCK —§R_DATA ERROR 

$803 001270 017555 DHI RRPC ASR WAS /8 

5804 001272 017764 DT1 :$ERRPC ASR, SBDDAT -SGDDAT 

5805 001274 020062 DFO TALL NUMBERS ARE IN OCTAL FORM 

5806 

5807 SITEM 3 

5808 

5809 001276 017312 EM3 :CLOCK BR_DATA ERROR 

$810 001300 017601 DH3 SERRPC 

5811 001302 017776 DT3 {SERREC.ABR SBDDAT SGDDAT 

5812 001304 020062 DFO TALL NUMBERS ARE IN OCTAL FORM 

5813 

5814 SITEM 4 

5816 001306 017340 EM, INTERRUPT ERROR. 

5817 601310 017625 DHGA ERRPC TO ; 

5818 001312 020010 DT4 SSERRPC. glttQe TRERG 

5819 001314 020062 DFO L NUMBERS ARE IN OCTAL FORM 

5820 

36S) zITEM «5 

5893 001316 017361 EMS SCLOCK COUNT REG ERROR 

5824 001320 017555 DH1 TERRPC ASR) WAS S/B 

5825 001322 017764 pT! ZSERRPC. ACR, SBDDAT, SGDDAT 

5826 001324 020062 DFO ALL NUMBERS ARE IN OCTAL FORM 


——_- —- 
| 
' 
| 
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| 
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| 


16=DEC-82 


ABASE+2 

AVECT1 

AVECT1¢2 
VECT144 


C=11=CNKWA-A MACY11 30(1046) 
:38 ERROR POINTER TABLE 
sITEM 66 
—EM12 
DH12 
DT12 
DFO 
s1TEM 67 
EM16 
DH12 
DT12 
DFO 
sITEM 810 
EM20 
DH20 
DT20 
DFO 
sITEM = = 611 
—m11 
DH1 
DT22 
DFO 
sITEM 12 
EM26 
DH26 
DT26 
DFO 
ASR: - WORD 
ABR: WORD 
VECT1: .WORD 
VECTP: .WORD 
VECT2: .WORD 
VECT2P: .WORD 
PRIOR: .WORD 
DR: WORD 
DR2: WORD 
STMPO: .WORD 
STMP1: .WORD 
TMP3: .WORD 
ROTATE: .WORD 
UTEST: .WORD 
ERCNT: .WORD 
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sCLOCK COUNT FUNCTION ERROR 
sERRPC ASR 
sERRPC, ASR 
sALL NUMBERS ARE IN OCTAL FORM 


sCLOCK INTERRUPT ERROR 
sERRPC ASR 
sSERRPC, ASR 
sALL NUMBERS ARE IN OCTAL FORM 


CLOCK + aaa og ERROR 
ASR _2ND CNT 


1ST CNT 3RD CNT 
7SERRPC, ASR, SBDDAT, one STMPO 
TALL NUMBERS ARE IN OCTAL F 


sCLOCK COUNT a. 
ZERRPC ASR $/B 
TSERRPC, ASR, SSDAT, STMPO 
ALL NUMBERS ARE IN OCTAL FORM 


sCLOCK ADDRESSING ERROR 
sERRPC CLOCK ADDR. 
sSERRPC ST 

L NUMBERS ARE IN OCTAL FORM 


zVECTOR ADDR. OF ST2 INTRS. 


TEMP STORAGE. 

TMP STORAGE. 
POINT ve DEVICE UNDER TEST. 
:KEEPS T RACK OF GOOD UNITS. 
sCOUNTS ERRORS. 


SEQ 0009 


ae ee ee i Ce 
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KWVTTA DISAGNOSTIC MAINDE 
15:38 ERROR POINTER TABLE SEQ 0010 | 


CNKWAA.P11 16=DEC-82 


~ 
on 


5878 001434 000000 MDEVCT: .WORD 0 ZCOUNTS DEVICES TESTED. 
5879 001436 000069 TSTCNT: .WORD 0 3MAX DEVICES TO BE TESTED. 
5880 001440 000000 EXS: .WORD 0 NORMAL: =1 SPECIAL TESTOR START, BY L*S @ 2 
3881 001442 000000 LCNT: .WORD 0 ZTOTAL UNITS TESTED. | 
 -§883 
5885 001444 012737 002144 001420 OSTART: MOV #RSTART, STMPO ZLOAD SETUP RETURN ADDRESS 
‘ 2886 - 001452 000137 001526 JMP INIT SINIT THE PROGRAM VECTOR SPACE 
5888 001456 005237 001440 TSTSTR: INC EXS zSET FOR TESTOR. 
| 5889 001462 012737 000020 001436 MOV «#16. , ISTENT tALLOW 16 UNITS 
_. | 5890 001470 0004 BR 1$ 
| §891 001472 WSTART=. 
| 5892 001472 012737 000020 001436 MOV #16. TSTCNT zTEST UP TO 16 UNITS. 
_ 5893 001500 005037 001440 CLR EXS 
5894 001504 000405 BR 1$ 
| 5895 001506 START=. 
| 5896 001506 012737 000004 001436 MOV #4, TSTCNT :TEST UP TO FOUR UNITS. 
| 5897 001514 005037 001440 CLR OEXS 
5898 001520 012737 001774 001420 1$: MOV #ZSTART, STMPO ;LOAD SETUP RETURN 
| §899 001526 INIT: 
; a) .SBTTL .NITIALIZE THE COMMON TAGS 
i @ [CLEAR THE COMMON TAGS ($CMTAG) AREA 
| 1) 001526 012706 001100 "OV #SCMTAG, RO 33FIRST LOCATION TO BE CLEARED 
(1) 001532 005026 CLR (R6)+ S:CLEAR MEMORY LOCATION 
(1) 001534 022706 001140 CMP #SUR.RG 7:DONE? “ 
(1) 001540 001374 BNE z;LOOP BACK IF NO 
(1) 001542 012706 001100 ACK SP t:SETUP THE STACK POINTER 
(1) ss INITIALIZE A FEU Ector 
| (1) 001546 012737 015136 000020 #$sC COPE ap LOTVEC 33107 VECTOR FOR SCOPE ROUTINE 
(1) 001554 012737 000300 000022 mov #PR6,a#1OTVEC+2 ::LEV 
(1) 001562 012737 014574 000030 MOV #SERROR ,AFEMTVEC UE VECTOR FOR ERROR ROUTINE 
a) 001570 012737 000300 000032 et MOV #PR6, AFEMTVEC+2 ::LEVEL 6 
(1) 001576 012737 017152 000034 MOV #STRAP ,@#TRAPVEC ; gTRAP VECTOR FOR TRAP CALLS 
(1) 001604 012737 000300 000036 MOV #PR6, as TRAPVEC+2;LEVE 
| (1) 001612 012737 016724 000024 MOV TSPURON asPUR VEC :POMER FAILURE VECTOR 
(1) 001620 012737 000300 000026 MOV #PR6 a#PWRVEC+2 ; 23LEVEL 6 
(1) 001626 005037 001160 CLR STIMES 4 ITHAL ize NUMBER OF ITERATIONS 
(1) 001632 005037 001162 CLR SESCAPE SECLEAR T HE ESCAPE ON ERROR ADDRESS 
(1) 001636 112737 000001 001115 MOVE #1, SERMAX Ow ONE ERROR PER T 
(1) 001644 012737 001644 001106 MOV 4. «SLPADR INITIALIZE THE LOOP ADDRESS FOR SCOPE 
(1) 001652 012737 001652 001110 MOV *SLPERR SETUP THE ERROR LOOP ADDRESS 
(2) 33S1ZE FOR A WARDUARE SWITCH ReciSTER. F NOT FOUND OR IT 
(2) TIE TO A “=1"", SETUP FOR A SOFT WARE. SWITCH REGISTER. 
(2) 001660 013746 000004 MOV @#ERRVEC.-(SP) ::SAVE ERROR VECTOR 
(2) 001664 012737 001720 000004 MOV #64$,a#ERRVEC ::SET UP ERROR VECTOR 
(2) 001672 012737 177570 001140 MOV #DSWR, SUR t:SETUP FOR A HARDWARE SWICH REGISTER 
/ (2) 001700 (012737 177570 001142 MOV #DDISP, DISPLAY $EAND A HARDWARE DISPLAY REGISTER 
| (2) 001706 022777 177777 177224 CMP #-1,aSuR 33TRY T REFERENCE HARDWARE SwWR 
(2) 001714 001012 BNE 66$ : BRANCH IF NO TIMEOUT TRAP OCCURRED 
(2) : THE HARDWARE SWR IS NOT = 1 
(2) 001716 000403 BR 65$ SIBRANCH IF NO TIMEOUT 
(2) 001720 012716 001726 64$: mov #65$, (SP) [:SET UP FOR TRAP RETURN 
| (2) 0017 O9573 000176 001140 65$: MoV #SWREG, SWR z:POINT TO SOFTWARE SwR 
. 
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MACY11 30(1046) 16-DEC=82 Ll! 42 PAGE 57-9 
INITIALIZE THE COMMON T 
MOV #DISPREG,DISPLAY 
66$: MOV (SP)+,a#@ERRVEC ;;RESTORE ERROR VECTOR 
CLR SPASS ZCLEAR PASS COUNT 
BIT8 #APTSIZE,SENVM TEST USER SIZE UNDER apr 
BEQ 67$ ZYES,USE NON-APT SWI 
as MOV #SSWREG, SWR [:NO,USE APT SWITCH REGISTER 
cad; asTMPoO ZEXIT PROGRAM VECTOR SETUP SPACE 
ZSTART: 
MOV #300,-(SP) sSET CPU PRIORITY ON RETERN. 
MOV #64$.-(SP) :SHOW RETURN ADDRESS 
“ RTI [CAUSE A DE TURWCPLTS” STATUS IN STATUS REG.). 
CLR SDEVCT 3ZERO DEVICE COUNT. 
MOV #IOTRD,@#ERRVEC :FIX TRAP CATCHER. 
MOV $VECT1.VECT1 ZNO FIX VECTOR ADDR. 
MOV SBASE ,ASR [FIX ADDRESS OF CSR. 
.SBTTL TYPE PROGRAM NAME 
3;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC a1 33FIRST TIME? 
BNE 655. 35 F NO 
TYPE ‘TYPE ASCIZ STRING 
.SBTTL GET vawué’t fon SOF TWARE suiTcH REGISTER 
TST aac2 ;;ARE WE RUNNING UNDER XXDP/ACT? 
BNE 67$ 3 SBRANCH IF YES 
CMPB Ss SEN, #1 33 ARE WE RUNNING UNDER APT? 
BEO 67$ [:BRANCH IF YES 
CMP SUR, #SWREG 3 3 SOFTWARE SWITCH REG SELECTED? 
BNE 68$ [BRANCH IF NO 
GTSUR aa tIGET SOFT-SWR SETTINGS 
67s: MOVB «#1, SAUTOB z:SET AUTO-MODE INDICATOR 
"BR 65$ 3GET OVER THE ASCIZ 
i668: "ASCIZ <CRLF>@CNKWAA KWV11 DIAGNOSTIC#<CRLF> 
RSTART: 
TST EXS sTESTOR MODE ENABLED?? 
BEQ 1$ [NO DON'T TYPE NEXT MESSAGE. 
TYPE 65$ :3 TYPE ASCIZ STRING 
BR 643 *GET OVER THE ASCIZ 
1858 eASCIZ <15><12>#TESTOR MODE ENABLED=-SEE DOCUMENTATION FOR INSTRUCTIONS.# 
1$: 
TYPE 67$ 3 TYPE ASCIZ STRING 
BR [GET OVER THE ASCIZ 
i678: “ASCIZ <15><12>#TEST RUNNING...f 


CLR MDEVCT svesties FIRST UNIT. 
CLR ERCNT 
CLR SPASS NO PASSES. 
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SEQ 0011 
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CNKWAA.P11  16=DEC-82 15:38 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0012 
5917 002320 012737 000001 001426 MOV #1, ROTATE sPOINT TO FIRST UNIT. 
5918 002326 013737 001426 001430 MOV ROTATE ,UTEST 
2919 002334 LOOP: sCOME HERE FOR NEXT UNIT,OR END PASS. 
— §921 002334 042737 170000 001402 BIC #170000, VECT1 ;CLEAR OUT PRIORITY BITS. 
| §922 002342 013737 001402 001404 MOV VECT1, VECTP [NOW FIX VECTOR +2 ADDR. 
_ 5923 002350 062737 001404 ADD #2, VECTP 
5924 002356 013737 001402 001406 MOV VECT1, VECT2 LETS FIX $T2 VECTOR ADDR. 
— §925 002364 062737 000004 001406 ADD #4, VECT2 [ITS 4 GREATER THEN THE 1ST. 
| 5926 002372 013737 001406 001410 MOV VECT2,VECT2P § : VECTOR #2 ADDR. 
2927 002400 062737 000002 001410 ADD #2, VECTOP 
| §929 
| 5930 002406 013737 001376 001400 MOV ASR, ABR sFIX ADDR OF PRESET REG= 
2931 002414 062737 000002 001400 ADD #2, ABR 7CSR + 2 
| (3 FERRARA ERASE AAE AAAS SEES SEES EEE EE EE EAE EEEEEEREEEEEEAEEAEAEEE EEE 
| (@) ATEST 1 “TEST THE ADDRESSABILITY OF CLOCK CSR 
(4) FURR ER AREER SEAT EA ESAS EET SESE EEA EE EAEEEAAEEEEEEEAEEEAAEEEEEEE 
(3) 002422 000240 $11: NOP 
| (2) 002424 012737 000050 001160 MOV #50, STIMES 3300 50 ITERATIONS 
| (2) 002632 012737 002454 001106 MOV #1$.$LPADR *SET SCOPE LOOP ADDRESS 
(1) 002440 112737 000001 001102 MOVE = #1, $TSTNM :SET TEST #1. 
(1) 002446 012737 002454 001110 MOV #1$,SLPERR 
(1) 
(1) 002454 013746 000004 1$: MOV a#ERRVEC,-(SP) 3 SAVE CONTENTS 2 ADDRS 6. 
(1) 002460 012737 002474 000004 MOV #2$,, a#ERRVEC SET TIME-OUT TRAP VECTOR TO HANDLER IN CASE. 
(1) 2WE TIME-OUT WHEN ADDRESSING THE KWw11 
(1) 002466 005777 176704 TST @ASR TADDRESS THE CLOCK 
(1) if CLOCK DOES NOT RETURN 
(1) S SSYN'’ THEN VEEL TIME-OUT 
(1) 002472 000406 BR 3$ :THE CLOCK WAS THERE! EXIT SUB-TEST. 
(1) 002474 2s: 
(2) 002474 062706 000004 ADD #4,SP /ADD #4 TO STACK POINTER. 
(1 002500 013737 001376 001420 MOV ASR, STMPO FOR ERROR TYPEOUT. 
(2) 
z SSSSSSSSSSSSSSSSSSESSESS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 002506 104012 ERROR 12 ;REPORT ERROR=CLOCK CSR FAILED TO RETURN 
(1) =" BUS SSYN’’ WHEN ACDR 
(1) SNOTE: IF PROGRAM HAS INCORRECT 
a ADDRESS THEN WE MIG NOT 
| wD STALKING TO THE CLOCK. MAKE SURE 
| (1) [OF CLOCK ADDRESS. 
; © (2) 


3 SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
002510 012637 000004 3$: MOV (SP)* a#ERRVEC 
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013746 
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005777 
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062706 
013737 
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*TEST THE ADDRESSABILITY OF CLOCK CSR 


FEARS RARE AAA AES SSSA ESSE SEES EA EEE EEE EEEEAEEEAEAEEREHEAAAEEEAEEE 


tS TEST 2 “TEST THE ADDRESSABILITY OF CLOCK BUFFER REG. 

“| a petiolate acini 
T$12: SCOPE 

1$: MOV @#ERRVEC,-(SP) ;=SAVE CONTENTS OF ADDRS 6. 


MOV #2$ ,A#ERRVEC 7SET TIME-OUT TRAP VECTOR TO HANDLER IN CASE. 
; zWE TIME-OUT WHEN ADDRESSING THE Ki11. 
TST @4BR zADDRESS THE or 
iif CLOCK DOES NOT RETURN 
| 3"BUS SSYN"' THEN WE°LL TIME-OUT 


BR 3$ THE CLOCK WAS THERE! EXIT SUB-TEST. 


ADD #4,SP 3/ADD #4 TO STACK POINTER. 
MOV ABR, STMPO 3FOR ERROR TYPEOUT. 


2$: 


72 SSSSSSSSSSSSSSSSSSSSESES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 12 REPORT ree re REG. FAILED TO RETURN 
:' BUS ; , Lo oll 
SNOTE: IF PROGRAM HAS INCORRECT 
ZADDRESS THEN WE MIG NOT 
ZTALKING TO THE CLOCK. MAKE SURE 
zOF CLOCK ADDRESS. 


3 2 S$SSSSSSSSSSSSSSSSSSSSS$S>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
3$: MOV (SP) + ,a#ERRVEC 


SEQ 0013 
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A DISAGNOSTIC MAINDEC=11=CNKWAA MACY11 30(1046) 16-DEC-82 15:42 PAGE 57-12 
CNKWAA.P11 —- 16=DEC=82 15:38 T2 *TEST THE ADDRESSABILITY OF CLOCK BUFFER REG. SEQ 0014 
i? 33 o eeeeeeeeeeeeaeeeneeneredeereeeaaeeeeaeeaeeeeeeeeerereeereneeer 
(3) TEST 3 *TEST THAT CLOCK A STATUS REGISTER BIT 14 CAN BE SET AND CLEARED 
(5) ?SCLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 
(5) [*F/FS OR GATES 
iH : 
(4) SREASAAAAAAAAAAAATATSATESTAAKSKAHAAAAAAAAEAARAAAAARAAEARAAEAEAARAAEAAEARE 
@) 002556 000004 +813: SCOPE 
(2) 002560 012737 000100 001160 MOV #100, STIMES 32D0 100 ITERATIONS 
a) 002566 005077 176604 CLR @ASR /CLEAR THE STATUS REGISTER. 
(1) 002572 052777 040000 176576 BIS #B1T14, @ASR t7SET BIT 16, 
(1) 012737 040000 001124 MOV IT14.$GDDAT :/SET FOR ERROR TYPEOUT S/B. 
(1) 002606 017737 176564 001126 MOV aasR SBDDAT :/READ THE STATUS REGISTER. 
(1) 002614 023737 001124 001126 CMP SGDDAT. SBODAT :/0ID BIT 14 AND ONLY BIT 14 SET? 
a 002622 001402 BEQ 1$ /IF SO=LETS TRY CLEARING IT. 
j SSSSSSSSSSSSSSSSSSSSSESES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 002624 104002 ERROR 2 Z7ERROR CLOCK AS STATUS REGISTER 
(1) :/B1T 14 FAILED TO BIT SET. 
7 SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1 002626 000412 BR 23 3/BR TO END SUBTEST. 
(1) 002630 042777 040000 176540 1$: BIC #B1T14,aASR s/TRY CLEARING BIT 14. 
(1) 002636 005037 001124 CLR SGDDAT 3/CLEAR S/B FOR TYPEOUT IF ANY. 
(1) 002642 017737 176530 001126 MOV @ASR, SBDDAT READ IT BACK. 
(1) 002650 001401 BEQ 2$ :7IF ZERO = NO ERROR! 
(2) 


3s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SoStSSSSSSSSSSSSSSSSSSSSSSSSSSS 


002652 104002 ERROR 2 37ERROR = CLOCK A STATUS REGISTER. 
3/BIT 14 FAILED TO CLEAR. 


3s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
: 002654 2s: 
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13 
*TEST THAT CLOCK A STATUS REGISTER BIT 14 CAN BE SET AND CLEARED 


3/a# 
PETTITT TIT I TIT TI Tit Titi tii it iii itiiitiitiiiiiitiitiiit it 


ztTEST 4 *TEST THAT CLOCK A STATUS REGISTER BIT 13 CAN BE SET AND CLEARED 


eCLock STATUS REGISTER BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 
3*F/FS OR GATES 
3t 


SRESEAAERAEAAAAAEAAEHEAESEEAAKEEAAAAAAAAAAEAEAARAAAEAAAAAAAAAREEAEE 


tét4: SCOPE 
mov #100, STIMES 3:00 100 ITERATIONS 
CLR ase :/CLEAR THE STATUS REGISTER. 
BIS 1T13,@ASR :/SET BIT 
MOV IT13,$GDDAT :/SET FOR ERROR TYPEOUT $/8. 
MOV Sue :/READ THE STATUS REGISTER. 
CMP ScDDAT OBDDAT :/DID BIT 13 AND ONLY BIT 13 SET? 
BEQ 1$ [/1F SO-LETS TRY CLEARING IT. 
j SSSSSSSSSSSSSSSSSESSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 ;/ERROR CLOCK AS STATUS REGISTER 
:/61T 13 FAILED TO BIT SET. 
j  SSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
BR 2s :/BR TO END SUBTEST. 
1$: BIC #81713, aASR :/TRY CLEARING BIT 13. 
CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
MOV @ASR,SBDDAT z/NOW R EAD IT BACK. 
BEQ 2s :/1F ZERO = NO ERROR! 
j  SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 27ERROR = CLOCK A STATUS REGISTER. 
[/BIT 13 FAILED TO CLEAR. 
j SSSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
23: 
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/KWVTTA DISAGNOSTIC a Ss MACY11 30(1046) 16-DEC-82 015° 42 PAGE 57-14 
j WAA.P11 16=DEC-82 15:38 T4 *TEST THAT CLOCK A STATUS REGISTER BIT 13 CAN BE SET AND CLEARED SEQ 0016 
| 
{v PITS TITITI IIT I TILT TT IT Titi iiiiittiiiiiiiiiiiiiiiiiiiiity 
‘3 :tTEST 5 eTEST THAT CLOCK A STATUS REGISTER BIT 11 CAN BE SET AND CLEARED 
(5) * SCLOck STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
(5) s*F/FS OR GATES 
| , 
(6) = RSSSKAKAEASAAEAAAASKEATSEKAEKSKAEKAAAARAAAAARAAAARAAAAAEAAAAEAAEAAEERAEE 
{i 002752 000004 TS: SCOPE 
44 002754 012737 000100 001160 MOY #100, STIMES 33:00 100 ITERATIONS 
(1) 002762 005077 176410 CLR @ASR 3/CLEAR THE STATUS REGISTER. 
(1) 002766 052777 004000 176402 BIS #B1T11,.a@ASR 3/SET BIT 11. 
(1) 002774 012737 004000 001124 MOV #B81T11,$GDDAT 2/SET FOR ER ROR T YPEOUT S/B. 
(1) 1773 176370 001126 MOV aA ,SBDDAT 3 /READ ad STATUS REGISTER. 
(1) 003010 023737 001124 001126 CMP $GDDAT, SOaDAT :/DID BIT 11 AND ONLY BIT 11 SET? 
(33 003016 401402 BEQ 1$ 3/71F SO-LETS TRY CLEARING IT. 
ss SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 003020 104002 ERROR 2 ZERROR CLOCK AS STATUS REGISTER 
3} 27B1T 11 FAILED TO BIT SET. 
srSSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
Sf 003022 000412 BR ek ;/BR TO END SUBTEST. 
(1) 003024 042777 004000 176344 1$: BIC #B1T11,aASR s/TRY CLEARING BIT 11. 
(1) 003032 005037 001124 CLR SGDDAT 3/CLEAR S/B FOR TYPEOUT If ANY. 
(1) 003036 017737 176334 001126 MOV @ASR,SBDDAT RE 
4 003044 001401 BEQ 2$ 27I1F ZERO = NO ERROR! 
(2) 
sSSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 003046 104002 ERROR 2 JERROR = CLOCK A STATUS REGISTER. 
a8 27B1T 11 FAILED TO CLEAR. 
(2) 


5 SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
f 003050 23: 
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EC T5 *TEST THAT CLOCK A STATUS REGISTER BIT 11 CAN BE SET AND CLEARED SEQ 0017 


KWVTTA DISAGNOSTIC 
Pil 16 


{2 , peeenenhoneunedusevesonesennereennesanenenvesqcouseunnenseuneecs 
(3) :STEST 6 *TEST THAT CLOCK A STATUS REGISTER BIT 6 CAN BE SET AND CLEARED 
(5) :sCLocK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
(5) 7FS OR GATES 
(3) i 
(4) ° FARES AAS HAAR AAAAA AEA SEAS A AEA EREREREREE » eee eaeeeeeeeaeeeeeeee 
@) 003050 000004 TST6: SCOPE 
(2) 003052 012737 000100 001160 MOV #100, STIMES 3:00 100 ITERATIONS 
(1) 003060 005077 176312 CLR @ASR 7/CLEAR THE STATUS REGISTER. 
(1) 003064 052777 176304 BIS #B1T6,aASR :/SET B 
(1) 003072 012737 O0100 001124 MOV #B1T6.$GDDAT  :/SET FOR ERROR TYPEOUT S/B. 
(1) 003100 017737 176272 001126 MOV @ASR, $BDDAT READ THE STATUS REGISTER. 
(1) 003106 023737 001124 001126 CMP SGDDAT,SBDDAT :/DID BIT 6 AND ONLY BIT 6 SET? 
C1) 003114 001402 BEQ 1$ 3/IF SO-LETS TRY CLEARING IT. 
 SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 003116 104002 ERROR 2 z/ERROR CLOCK AS STATUS REGISTER 
1) :/B1T 6 FAILED TO BIT SET. 
1 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
a) 003120 000412 BR 2s 7/BR TO END SUBTEST. 
(1) 003122 042 000100 176246 1$: BIC #B1T6,@ASR s/TRY CLEARING BIT 6. 
(1) 003130 005037 001124 CLR SGDDAT /CLEAR $/8 FOR TYPEOUT IF ANY. 
(1) 003134 017737 176236 001126 MOV @ASR,SBDDAT :7NO READ IT BACK. 
(1) 003142 001401 BEQ 2$ 3/1F ZERO = NO ERROR! 
(2) 
 SSSSSSSSSSSSSSSSSSSSSEES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 003144 104002 ERROR 2 JERROR = CLOCK A STATUS REGISTER. 
(1) 27B1T 6 FAILED TO CLEAR. 
(2) 
7 SSSSSSSSSSSSSSSSSSSEESES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 003146 23: 
(1) 
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T6 *TEST THAT CLOCK A STATUS REGISTER BIT 6 CAN BE SET AND CLEARED 


3/# 
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ssTEST 7 *TEST THAT CLOCK A STATUS REGISTER BIT 5 CAN BE SET AND CLEARED 


{CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
ny 


§ fs RARER AA EEE EAE EEE E ESSE CEES EAAEEAERAEAAEEAEEEAERAAEAEEAERAAEEAEE 


$17: SCOPE 
MOV #100, STIMES ::D0 100 ITERATIONS 
CLR @ASR :/CLEAR THE STATUS REGISTER. 
BIS #BiTS, QASR :/SET BIT 5. 
MOV :/SET FOR ERROR TYPEOUT S/B. 
MOV Ht <$500. oat :/READ THE STATUS REGISTER. 
CMP SeDDAT »SBDDAT :/DID BIT 5S AND ONLY BIT 5 SET? 
BEQ 1$ :/1F SO-LETS TRY CLEARING IT. 
7 SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 :/ERROR CLOCK AS STATUS REGISTER 


3/BIT 5 FAILED TO BIT SET. 
zs SSSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


Be tséS 7/8R TO END SUBTEST. 
1$: BIC #B1TS,@ASR 7/TRY CLEARING BIT 5. 
CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 


A 

MOV @ASR,SBDDAT 3 /NOW READ IT 

BEQ es :/1F ZERO = NO ERROR! 
2 SSSSSSSSSSSSSSSSSSSSSSSE>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

ERROR 2 3/7ERROR - CLOCK A STATUS REGISTER. 

:/B1T 5 FAILED TO CLEAR. 

s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
23: 


SEQ 0018 
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17 *TEST THAT CLOCK A STATUS REGISTER BIT 5 CAN BE SET AND CLEARED 


3/# 


PPITITITIL ITT TITT IIIT LITT iti itiiiiiiiiiiitiiiiiiiiitii iit 


ZHTEST 10 *TEST THAT CLOCK A STATUS REGISTER BIT 4 CAN BE SET AND CLEARED 


i scvock STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
> F/FS OR GATES 


fg CASAS SS KSEE AAA EHS EES S KEES EEE EAAAAAAAKEREAAEEAEAAEREAAEEEEEEE 


ST10: SCOPE 


MOV #100, STIMES 3:D0 100 ITERATIONS 
CLR @asR :/CLEAR THE STATUS REGISTER. 
BIS #B1T4,aASR :/SET B “i 
MOV #BIT4.$GDDAT :/SET FOR ERROR TYPEOUT S/B. 
MOV @ASR,SBDDAT :/READ THE STATUS REGISTER. 
CMP $GDDAT,S$BDDAT :/DID BIT 4 AND ONLY BIT 4 SET? 
BEQ 1$ :/IF SO-LETS TRY CLEARING IT. 
j  SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 :7ERROR CLOCK AS STATUS REGISTER 


:/BIT 4 FAILED TO BIT SET. 
3s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BR 2s 7/BR TO END SUBTEST. 
1$: BIC #B1T4, aASR z/TRY CLEARING BIT 4 

CLR $GDDAT /CLEAR $/8 FOR TYPEQUT IF ANY. 

MOV @ASR,SBDDAT i NO READ IT BAC<. 

BEQ 2$ :/1F ZERO = NO EPROR! 


32 SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSESSSSSSSSSSSSSSSSSSSESSS 
ERROR 2 /ERROR = CLOCK A STATUS REGISTER. 
27817 4 FAILED TO CLEAR. 
3 SSSSSSSSSSSSSSSSSSSSESES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSESSSSSSS 
23: 


PRR PR PR PR PRP PP Pe a Pe Pe Pe ey Fe Pe fh, 
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2 
a 30(1046) 16-DEC-82 Miss 42 PAGE 57-18 
T10 *TEST THAT CLOCK A STATUS REGISTER BIT 4 CAN BE SET AND CLEARED 


peeeeeeereceeeeeeeeeeereceereerencereereeeeeeeeeeeeeeeeeeeeeeees 


:HTEST 11 *TEST THAT CLOCK A STATUS REGISTER BIT 3 CAN BE SET AND CLEARED 


?eCLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
3*F/FS OR GATES 
°@ 


SESSA SSAA AAAESESSASSAEE ASSESS TEAEAAAEEEEAAEEAAEEAEAEREEE 


T$T11: SCOPE 
MOV #100, STIMES ::D0 100 ITERATIONS 
CLR @ASR Z/CLEAR THE STATUS REGISTER. 
BIS #B1T3, aAs :/SET BIT 
MOV #BIT3.$GDDAT :/SET FOR ERROR TYPEOUT S/B. 
MOV a@asR, <$BDAT :/READ THE STATUS REGISTER. 
CMP SGDDAT,SBDDAT :/DID BIT 3 AND ONLY BIT 3 SET? 
BEQ 1$ :/I1F SO-LETS TRY CLEARING IT. 
s SSSSSSSSSSSSSSSSSSESSSSS>>> ERROR <<<SSSSESSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 ;/ERROR CLOCK AS STATUS REGISTER 


;/BIT 3 FAILED TO BIT SET. 
3s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BR 2s :/BR TO END SUBTEST. 
1$: BIC #B1T3,aaSR z/TRY CLEARING BIT 3. 
CLR SGDDAT :/CLEAR S/B FOR TyPEOUT IF ANY. 
MOV @ASR, SBDDAT z/NOW EAD IT BACK 
BEQ 2s :/1F ZERO = NO ERROR! 


TE SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 3/ERROR = CLOCK A STATUS REGISTER. 
:/B1T 3 FAILED TO CLEAR. 
5 SSSSSSSSSSSSSSSSSSSSSEEES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
23: 


>> 
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16-DEC 15:38 T11 *TEST THAT CLOCK A STATUS REGISTER BIT 3 CAN BE SET AND CLEARED SEQ 0021 


PPITITITIT ITI TTT TTT ITI TT Titi itiiittiititiiiiitiiiiiiti iit 


ZSTEST 12 *TEST THAT CLOCK A STATUS REGISTER BIT 2 CAN BE SET AND CLEARED 
*CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
F/FS OR GATES 


gg TEAS S SESS SAE AAAS HESS ESAS EK EK ESE AEHAAEEAEAAAEHAEREEEAEEEAEEREREE 


003440 000004 TST12: SCOPE 
003442 012737 000100 001160 MOV #100, STIMES 2:D0 100 ITERATIONS 
003450 005077 175722 CLR @ASR /CLEAR THE STATUS REGISTER. 
003454 052777 000004 175714 BIS #B1T2,@ASR 2/SET BIT 
003462 012737 000004 001124 MOV #B1T2.$GDDAT  :/SET FOR ERROR TYPEOUT S/B. 
003470 017737 175702 0011 MOV @ASR, $BDDAT + /READ THE STATUS REGISTER. 
003476 023737 001124 001126 CMP SGDDAT, SBDDAT z/D1D BIT 2 AND ONLY BIT 2 SET? 
003504 001402 BEQ 1$ :/1F SO-LETS TRY CLEARING IT. 
1 SSSSSSSSSSSSSSSSSSSESSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
003506 104002 ERROR 2 7/7ERROR CLOCK AS STATUS REGISTER 


3/B1T 2 FAILED TO BIT SET. 
2s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


003510 000412 BR 2s 7/8R TO END SUBTEST. 

003512 042777 000004 175656 158: BIC #8112, @ASR s/TRY CLEARING BIT 2. 

003520 005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
003524 017737 175646 001126 MOV @ASR,SBDDAT :/NOW READ IT 

003532 001401 BEQ 2$ :/1F ZERO = NO ERROR! 


2s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSESSSSSSSSSS 
003534 104002 ERROR 2 JERROR = CLOCK A STATUS REGISTER. 
:/B1T 2 FAILED TO CLEAR. 
2 s SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
003536 2s: 


eee oe ee es. 


ERR PR PRP PP Pe Pe hy PP 
OS a ded et at ot SS KIN VIIUIVIWI ES UI 
er ee et ee et ee ee ee ee ee ae a eles es es 
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SAGNOSTIC MAI 

1 16=DEC-82 15:38 
003536 000004 
003540 012737 000100 
003546 5077 175624 
003552 052777 
003560 012737 2 
003566 017737 175604 
003574 023737 001124 
003602 1402 
003604 104002 

003606 000412 
003610 042777 000002 
003616 005037 001124 
003622 017737 175550 
003630 001401 

003632 104002 

003634 


y+ WWtemamente 8 


175560 
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2 
5 ie 30(1046) 16-DEC-82 4 i5¢ 42 PAGE 57-2 


0 
*TEST THAT CLOCK A STATUS REGISTER BIT 2 CAN BE SET AND CLEARED 


T12 
3 ;pUeeeeedaneenceeaeeeeeeeeeceeecedenereneeeneererereeerenereeeete 
T*TEST 13 *TEST THAT CLOCK A STATUS REGISTER BIT 1 CAN BE SET AND CLEARED 
3* 
i #CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
s*F/FS OR GATES 
SASS SASATAAAAHEKEKEKESESEAAAAAAAAAAAEARAEAAEARAEEREAEAEAEEEEE 
T8113: SCOPE 
MOV #100, STIMES 72D0 100 ITERATIONS 
CLR @ASR 7/CLEAR THE STATUS REGISTER. 
BIS #B1T1,aASR /SET BIT 


MOV #B1T1.$GDDAT 3/SET We RROR TYPEOUT S/B. 
MOV @ASR,SBDDAT S TREAD. THE STATUS REGISTER. 

CMP SGDDAT,SBDDAT :/DID BIT 1 AND ONLY BIT 1 SET? 
BEQ 1$ [/IF SO-LETS TRY CLEARING IT. 


3 SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 3/ERROR CLOCK AS STATUS REGISTER 
;/BIT 1 FAILED TO BIT SET. 


3s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


1$: 


BR 2s 7/BR TO END SUBTEST. 

BIC #B1T1,aASR s/TRY CLEARING BIT 1. 

CLR SGDDAT :/CLEAR $/B FOR TYPEOQUT IF ANY. 
MOV @ASR, SBDDAT :/NOW READ IT 

BEQ 2s :/1F ZERO = NO ERROR! 


2 3 SSSSSSSSSSSSSSSSSSSESSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 3/ERROR = CLOCK A STATUS REGISTER. 
:/B1T 1 FAILED TO CLEAR. 


3s SSSSSSSSSSSSSSSSSSSSESSSE>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


2$: 


SEQ 0022 


RRA RR AAR AR AAR RAR RAP 
ONS a a dd td et FUN EVI Ut 
ee es es 


Ce te te et et a a) 
ee ey 
er ee er ee ee es er ee 


003730 


(1) 003732 


000004 
012737 


104002 


104002 


000010 


000100 
175526 
000001 


000001 
175506 
001124 


000001 
001124 
175452 


175462 
001126 
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*TEST THAT CLOCK A STATUS REGISTER BIT 1 CAN BE SET AND CLEARED 


pdeeeeneeeeeneeeeeeeeereceeeeeereeeeeeeerereneeeeeeeeeeeeettetet 


:tTES ST 14 *TEST THAT CLOCK A STATUS REGISTER BIT 0 CAN BE SET AND CLEARED 


 eCLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
3*F/FS OR GATES 


ee ee ee ne eee 


T$T14: SCOPE 
MOV #100, STIMES 7:D0 100 ITERATIONS 
CLR @ASR 7/CLEAR THE STATUS REGISTER. 
BIS #B1TO,a@ASR :/SET BIT 


MOV #BITO.$GDDAT :/SET FOR ERROR TYPEOUT S/B. 
MOV @ASR, SBDDAT : 
CMP SGDDAT,$BDDAT :/DID BIT 0 AND ONLY BIT O SET? 


BEQ 1$ :/IF SO-LETS TRY CLEARING IT. 
3 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 3/ERROR CLOCK AS STATUS REGISTER 


;/B1T 0 FAILED TO BIT SET. 
3s SSSSSSSSSSSSSSSSSSESSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BR 2s :/BR TO END SUBTEST. 
1$: BIC #81T0,aASR z/TRY CLEARING BIT 0. 
CLR $GDDAT :/CLEAR $/B FOR TYPEQUT IF ANY. 
MOV @ASR,$BDDAT :/NOW READ IT 
BEQ 2$ :/1F ZERO = NO ERROR! 


7 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSESSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 3/ERROR - CLOCK A er ay REGISTER. 
:/B1T 0 FAILED TO CLEAR 
7 SSSSSSSSSSSSSSSSSSSSESSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2$: 
RADIX 8 


SEQ 0023 


2 
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8 
CNKAR.PTI 16=DEC-82 15:38 T14 *TEST THAT CLOCK A STATUS REGISTER BIT 0 CAN BE SET AND CLEARED SEQ 0024 
| 6059 
6060 

(5) FARRAR AAA AAA EE TEESE E SEES EE AEAEEAEAAAEEEEEAEEEAEEAEEEEEEEEE 

(4) 3 STEST 15 *TEST THAT PATERN 125252 WILL SET AND CLEAR IN BUFFER REG. 
i (6) FERRARA EASA a AAAS SEH E ESSE EEEEEAAAAEEEEAEAAEREEAEEAAEEREREE 
(3) 003732 000004 T8115: SCOPE 
| ¢4) 
| (1) 003736 005077 175440 CLR :/CLEAR THE BUFFER REG. 

(1) 003740 012737 125252 001124 MOV #125252, $GDDAT ;/RECORD PATTERN: 125252 

(1) 003746 013777 001124 175424 MOV SGDDAT, aAB :/SET PATTERN IN BUFFER RiG. 

C1) 003754 017737 175420 001126 MOV @ABR NSBDDA [/READ THE BUFFER REG. 

(1) 003762 023737 001124 001126 cMP SGDDAT,S$BDDAT ;/DID THE PATTERN SET 0k? 

(1) 693770 001402 BEQ 1$ :/YES=TRY CLEARING IT. 

(2) 

sSSSSSSSSSSSSSSSSSSESSESS>>> ERROR <<<SSSSSSSSSSSSESSSSSSSSSSSSSSSESS 
(1) 903772 104003 ERROR 3 : JERROR PATTERN 125252 FAILED TO 
(1 /SET PROPERLY IN BUFFER REG. 
s SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

C 003774 000412 BR 2$ :/GOTO SCOPE LOOP. 

(1) 003776 042777 125252 175374 1$: BIC #125252,aABR —;/TRY CLEARING PATTERN. 

(1) 004 005037 001124 CLR SGDDAT :/ENPECT ZERO BACK. 

(1) 004010 017737 175364 001126 MOV @ABR, SBDDAT 7READ BUFFER REG. .WAS IT ZERO? 

(1) 004016 001401 BEQ 2$ 27YES-NEXT TEST. 

(2) 


(1) 004020 104003 ERROR 3 3/BUFFER ~ ay COULD NOT BE LOADED 
(1) 3/TO A ZERO 
zs SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


j 

3 SSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 004022 2$: 

(1) 
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017737 


023737 
001402 


104003 


104003 


175350 


052525 
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175274 


175304 
001126 


*TEST THAT PATERN 125252 WILL SET AND CLEAR IN BUFFER REG. 


J RRARREAAAREREAAES EASE EEE ERA EAHA AA EEEAEEEEEEEEREEAEEAAEERENEEE 


TEST 16 *TEST THAT PATERN 052525 WILL SET AND CLEAR IN BUFFER REG. 
SAAS SEEASSAAAAEAAAASAAAEATESAAEAAAAAAEAAAEAEEEEAEAEEEAAAEEEEEEEEE 
78116: SCOPE 
CLR CLEAR THE SurFER REG. 
MOV #052525, SGDDAT TRE ORD PATTERN: 052525 
MOV SGDDAT,@ABR 18: T PATTERN IN BUFFER REG. 


MOV @ABR A360 DDAT /READ THE BUFFER REG. 
cMP SGDDAT,$BDDAT ;/DID THE PATTERN 3! OK? 
BEQ 1$ 3/YES=TRY CLEARING IT. 
7 SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 3 3/ERROR PATTERN 052525 FAILED TO 
3/SET PROPERLY IN BUFFER REG. 


3s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BR 2s :/GOTO SCOPE LOOP. 
1$: BIC #052525 ,,@ABR e/TRY CLEARING PATTERN. 
CLR SGDDAT 3/EXPECT ZERO BACK. 
MOV @ABR , SBDDAT 3/READ BUFFER REG. .WAS IT ZERO? 
BEQ 2s 3/YES-NEXT TEST. 


3 2 SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 3 ;/BUFFER REG. COULD NOT BE LOADED 
3/TO A ZERO. 
3 SSSSSSSSSSSSSSSSSSESSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSESS SS 
2$: \ te 


.SBTTL * + 
“SBTTL * PHASE 2 ADVANCED BASIC LOGIC TESTS % 
SBTTL * ; 


° a: a8 i 


—_——— + — —- ie SS 


SEQ 0025 
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“DEC-82 15:38 * SEQ 0026 


FRRAS RAR ARE RARAR ATE AE TESS ESTE TERE EEE RERE EEA EAEERETEEEEEEEEEREE 


:STEST 17 *TEST THE LOW BYTE OPERATION OF CLOCK'S STATUS REGISTER 


iE CAN SUCCESSFULLY WRITE EVERY BIT IN STATUS REG A 
; *NOW LETS CHECK THE BYTE OPERATION OF THIS REGISTER. 


SEAS AEEAEEEEAEEEEEETA SEES EAEEAAAAEAEAEREEEERERAEEEE NEARER 


000004 $117: SCOPE 
012737 000050 001160 MOV #50,$TIMES 2:00 50 ITERATIONS 
005077 175250 CLR @ASR :MAKE SURE THE STATUS REGISTER IS CLEAR. 
112777 127677 175242 MOVB  #127677,@ASR =: TRY WRITING ALL BITS IN 
i STATUS REGISTER. LOGIC SHOULD PREVENT IT 
OM BEING WRITTEN INTO BECAUSE 
ce ARE USING A DATOB INSTRUCTION. 
017777 175236 174764 MOV @ASR,a@SBDDAT ;=NOW EXAMINE THE 
SSTATUS REGISTER. 
013737 001126 001124 MOV SBDDAT. $GDDAT [FIX $GDDAT FOR ERROR TYPEOUT IF 
105037 001125 CLRB $GDD SANY RROR HAS OCCURRED, UPPER BYTE CLEARED. 
105737 001127 TSTB  $BDDAT+1 zARE ANY BITS IN THE UPPER BYTE 
[OF THE STATUS REGISTER SET? 
001401 BEQ 1$ ‘BRANCH NEXT TEST IF UPPER BYTE=0. 


3s SSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSESSS 
104001 ERROR 1 ERROR = WROTE INTO UPPER BYTE OF 
ZCLOCK"S STATUS WHEN 
[DOING A DATOB TO THE LOW BYTE. 
3; SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


1$: 
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012737 
005077 
005237 
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T1 “TEST THE LOW BYTE OPERATION OF CLOCK'S STATUS REGISTER SEQ 0027 


FRRAAAAAAEAARARAARAOREREEE EEE EAEREEAEAEAAERAEERRAERARAEEEATEAEEEE 


SRTEST 20 *TEST THE HIGH BYTE OPERATION OF A'S STATUS REGISTER 


swe CAN SUCCESSFULLY WRITE EVERY BIT IN STATUS REG A 
3 eNOu LETS CHECK THE BYTE OPERATION OF THIS REGISTER. 


© RREAEAAAAEAAAARAEEEAAEAEAEAAAEAEAAAAARAAAAERARARAEAAERAAEAAAERAERE 


TST20: SCOPE 


MOV #50, STIMES 3300 50 ITERATIONS 
CLR @ASR CLEAR THE STATUS REGISTER. 
INC ASR sADD_#1_TO THE STATUS ies tare ADDRESS 


3$0 THAT WE WILL BE WRITING INT 
;THE HIGH BYTE. 


MOVB #177313,@ASR sTRY WRITING ALL BITS IN THE STATUS 
IC_SHOULD PR 


;BYT ROM 
sBEING WRITTEN INTO BECAUSE WE ARE USING 
3A DATOB INSTRUCTION WITH AOO SET. 


DEC ASR sFIX ADDRESS OF THE STATUS REGISTER ADDR. 
3$0 WE CAN ro AT THE WORD. 

MOV @ASR,SBDDAT READ BACK T THE STATUS + CONTAINS 

MOV SBDDAT,SGDDAT FIX SGDDAT FO FOR ERROR TYPEOUT IF AN ERROR 

CLRB SGDDAT 30CCURR ED, Lovee BYTE CLEARED. 

TSTB SBDDAT 1S LOWER BYTE CL 

BEQ 1$ BR IF YES TO NEXT SUBTEST. 


3 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 1 sERROR = WROTE INTO LOWER BYTE 
OF CLOCKS STATUS REGISTER WHEN 
;DOING A DATOB TO THE HIGH BYTE. 
5s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


1$: 


KUVITA DI 
“CNKWAA.P1 6-DEC-8 
6138 
6139 
| “¢s) 
(3) 
is) 004246 000004 
(1) 006250 012737 
| 6140 
6141 004256 005077 
6142 Oos262 01277 
614 
| 6144 
6145 
oie3 004270 052777 
6148 004276 012737 
6149 
6150 004304 01774 
(1) 004310 01163 
(1) 004314 0427 
(1) 004322 052737 
1) 006330013777 
a) 
(1) 
(1) 006336 052777 
(1) 004346 017737 
(1) 004352 012677 
g{2) 004356 005737 
6152 004362 023737 
6154 004370 001401 
6155 
6156 
6157 004372 104005 
6158 
6159 
6160 
6161 
6162 004374 
oi6g 


000001 
125252 
175066 
001424 
177707 
004005 
001424 


001000 
175030 
175020 
001126 


001124 


SAGNOSTIC ~~ 
1 1 15:38 


001160 


175110 


175100 
G01124 


175032 
001126 


001126 
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*TEST THE HIGH BYTE OPERATION OF A*S STATUS REGISTER 


FERRARA AAAEAEAAAA AE AESES SAKA HEAAAAAERARAAAAEARAAAAAAAAHEAAEKEREE 


“TEST CLOCK'S COUNT REGISTER WITH 125252 PATTERN 


he ORON cea 1 oa (eect ek Le ie ees ae 


SaTEST 21 


i8121: Scop 


#100, STIMES 


@ASR 
#125252, aABR 


#B1TO,a@ASR 
#125252, $GDDAT 
aase -(6) 

),$T mPS 
$9590 TMP3 


3300 100 ITERATIONS 


s SELECT 
:LOAD THE B a: PéR at thee WITH 
ATTERN 1 sy 
; TRANSFERRED 6° THE COUNT OREGISTER 
sSINCE THIS 15 OMODE 0. 
SET GO BITCALLOWS BUFFER-COUNT REG XFER). 


SET EXPECTED "te PATTERN IN CASE OF 
sNEED OF ERROR TYPEOUT. 

3/SAVE CSR 

3/GET CSR. 

3/SAVE RATE BITS. 


faittt c6tt2:8170, 8100 yy MODE 2. NO RATE,DISABLE INTERNAL OSC 


#B1T9,aASR 
@ABR, SBDDAT 


(6)+,@ASR 
SBDDAT 

SGDDAT ,SBDDAT 
1$ 


3/THIS nist BE BONE IN 
:/ORDER TO XFERR COUNTER 
O BUFFER 


ON 
:/GENERATE ON ST2 PULSE 
/READ THE PRESET BUFFER, 


: /PREVIOUS COUNTER 
3/CONTENTS ARE IN SBDDAT. 
3/RESTORE CSR 


DID ALL THE BITS AND NO OTHER BITS 
3COME THROUGH? 
38R IF YES TO NEXT TEST. 


3s SSSSSSSSSSSSSSSSSSSSSESES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 


5 


;DATA_ERROR CLOCK = PATTERN °125252°° 
3FAILED TO TRANSFER PROPERLY BETWEEN 
3BUFFER AND COUNT REGISTERS. 


2 SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


1$: 


SEQ 0028 


| 0.3 
/KWVTTA DISAGNOSTIC <bean - MACYT1 30(1046) 16-DEC“82 15:42 PAGE 63 


‘CNKWAA.P11 =: 16=DEC T21 *TEST CLOCK'S COUNT REGISTER WITH 125252 PATTERN SEQ 0029 
| 
$9 33 PARAAAAALALALAAALL AAALAC TTT TTT TTT TT TTT eee GS 
| ¢3) Z*TEST 22 *TEST CLOCKS COUNTER REGISTER WITH 052525 PATTERN 
(3) RAAT AAAAAAAAKATKAKAKSKSKASKAESEKAEKAAAAAAAKHAAAAAAEAAAAAEAAAAAAAEE 
| (2) 004374 000004 +8122: SCOPE 
| AY 004376 012737 000050 001160 MOV #50, STIMES 7:00 50 ITERATIONS 
| 6168 004404 005077 174766 CLR @ASR ZSELECT MODE 
| 6169 004410 012777 052525 174762 MOV #052525, aABR :LOAD THE oeues FER ae REGISTER WITH 
6170 52 WILL BE 
| 6171 s TRANSFERRED TO rhe COUNT REGISTER 
| 6172 SSINCE THIS IS MODE 0. 
6175 004416 052777 000001 1746752 BIS #B81T0,aASR [SET BO BIT(ALLOWS BUFFER-COUNT REG XFER). 
6175 004424 012737 052525 001124 MOV #052525,$GDDAT ;SET EXPECTED TO PATTERN IN CASE OF 
6176 [NEEC OF ERROR TYPEOUT. 
6177 004432 017746 174740 MOV aAsr -(6) :/SAVE cs 
(1) 004436 011637 001424 MOV (6) Ps TAPS CSR. 
(1) 004442 042737 177707 001424 BIC #1777 MP3 TSA RATE BITS. 
(1) 004450 052737 004005 001424 BIS wait 611218110, STMP3 ;/SET MODE 2. NO RATE,DISABLE INTERNAL OSC 
(1) 004456 013777 001424 174712 MOV STMP3,aA :/ R. 
a) ;/THIS MUST BE DONE IN 
a) :/ORDER TO XFERR COUNTER 
a) :/TO BUFFER ON 
(1) 004464 052777 001000 174704 BIS #B1T9,aASR ?/GENERATE ON ST2 PULSE 
(1) 004672 017737 174702 001126 MOV @ABR, SBDDAT :/READ THE PRESET BUFFER, 
1) :/PREVIOUS COUNTER 
(1) 004500 012677 174672 MOV (6)+,a@ASR S/CONTENTS ARE IN SBDDAT. 
a ) 004504 005737 001126 TST SBDDAT :/RESTORE CSR 
179 004510 023737 001124 001126 cmp SGDDAT, SBDDAT DIP ALL THE BITS AND NO OTHER BITS 
181 004516 001401 BEQ 1$ ‘BR IF esto. NEXT TEST. 
1 


3 2 SSSSSSSESSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSS: SSSSSSSSS 
004520 104005 ERROR 5 sDATA_ERROR CLOCK = PATTERN °052525°° 
SFAILED TO TRANSFER PROPERLY BETWEEN 
BUFFER AND COUNT REGISTERS. 
2s SSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


6189 004522 1$: 


AAnn AADBAAQ 
= —o at ed od ed = 
SESE G 


— — et - -_—— ~_——-- — -_- —-- ~ 


E 3 
/KWVTTA DISAGNOSTIC MAINDEC=11=CNKWA=A MACY11 30(1046) 16-DEC-82 15:42 PAGE 64 
\CNKWAA.P11 —- 16=DEC-82 15:38 T2 *TEST CLOCKS COUNTER REGISTER WITH 052525 PATTERN SEQ 0030 
$398 FTRASAEA AEE A EAH S RASH SHH H EERE AAAAERAAAEEEAAEAEEEAEHAEREREEEEE 
(3? sSTEST 23 *TEST THAT INIT CLEARS STATUS REGISTER 
| & *TESTING OF iHE INIT LOGIC AS RECEIVED FROM THE QBUS AND BUFFERED 
(4) +10 STATUS REGISTER F/FS. 
(3) jaseeeenceneeesenceeeneeeeceeneeeeneeeeereenenecereeneeeereces 
(2) 004522 000004 fives SCOPE 
AS 004524 012737 000005 001160 MOV #5, STIMES 2:00 5 ITERATIONS 
6202 004532 005037 01124 CLR —- SGDDAT EXPECTED DATA IS ZERO. 
6203 004536 012777 177777 174632 MOV #177777,@ASR = :SET ALL BITS IN THE STATUS REG. 
6205 004544 000005 RESET :SYSTEM INITIALIZE. 
osoe 004546 017737 174624 001126 MOV @ASR, SBDDAT zREAD THE STATUS REG., ALL BITS SHOULD 
6208 THAVE BEEN CLEARED BY INIT. 
6209 004554 001402 | BEQ 1$ [BR IF YES TO NEXT TEST. 
6211 
7 SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
621 
ogig 004556 104002 ERROR 2 ZERROR = SYSTEM INIT FAILED TO CLEAR 
6214 SSTATUS REGISTER CLOCK A 
Sie 
 SSSSSSSSSSSSSSSSSSSSESSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6217 004560 000413 BR TST24 33 
6218 004562 1$: 
6219 004562 005737 001440 TST EXS ;TEST EXTERNAL SIGS? 
6220 004566 00141 BEQ TST24 
6221 004570 052777 016000 174620 BIS weltitse1ri2:erti6 @DR2 ;ENABLE ST1, S12 TO LATCH. 
6222 004576 032777 000006 174610 BIT #6, aDR rST1,ST2. OVERFLOW § 
6208 004604 001401 BEQ TS24 33 
s SSSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6225 004606 104006 ERROR 6 zINIT FAILED TO CLEAR 
6226 :5T1,ST2, AND/OR OVERFLOW 


2  SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 





(2) 004610 000004 
(1) 004612 012737 


6239 
6240 004620 005037 
6241 004624 012777 


oct? 004632 000005 
#4 004634 017737 
rors 004642 001401 


104003 


032777 


po 


000005 


001124 
177777 


174540 


001440 
016000 





001160 


174546 


001126 


174534 


» 
MACY11 30(1046) 16-DEC-82 15:42 PAGE 65 
T2 *TEST THAT INIT CLEARS STATUS REGISTER 


Iii iii iiiiiiiiiiiiiiiiiiiiiiiiiiiiiry) 
jeTEST ra) *TEST THAT INIT CLEARS BUFFER REGISTER 
eTHIS ig IS DESIGNED TO SEE IF “INIT H"° 
Z*CLEARS THE BUFFER REGISTER. WE ALREADY 
3 skNOW ir CLEARS THE STATUS REG. 


-epenensbeeeeeeneonnensenenenqenenneneenenensimentetanunnenennes 


fitse: SCOPE 
MOV =: #5, STIMES 3:00 5 ITERATIONS 
mov #377777. aABR SET ALL BITS IN THE BUFFER REGISTER. 
RESET sISSUE SYSTEM INITIALIZE. 


MOV @ABR , SBDDAT sREAD THE BUFFER REGISTER, ALL BITS 
SHOULD HAVE BEEN CLEARED BY INIT. 
BEQ 1$ sBR IF YES TO NEXT SUBTEST. 
3s SSSSSSSSSSSSSSSSSSSESSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 3 sERROR = SYSTEM INIT FAILED 
TO CLEAR BUFFER REGISTER A. 
3s SSSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSESSSSSSSSSSSSSSSSSSSSSSSS 


1$: 
TST 


BEQ 
BIS 


:TEST EXTERNAL SIGS? 
1!BIT12'BI1T10,aDR2 ;ENABLE THEM 


SEQ 0031 


--_- -——_—_ - CO Cee - — = 
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KWVTTA DISAGNOSTIC os MACY11 30(1046) 16-DEC-82 15:42 PAGE 66 


‘CNKWAA.P11 —- 16=DEC T24 “TEST THAT INIT CLEARS BUFFER REGISTER SEQ 0032 
i 62 1 FRSA SASS A AAA AHHH KSSH SASS SKE A AA AAAAAAAAAAAAAAAAAEAEEAEREREE 
(3) tS TEST 25 *TEST THE SETTING OF MAINTENANCE ST2 IN CLOCK BIT 15 TO SET 
(3) Saggy yen a ie iit nm ang ahi ami Be 
(2) 004662 000004 18125: SCOPE 
| “ff 
$566 004664 012777 000001 174504 MOV #1,aASR sSET THE GO BIT(ENABLES ST2 TO SET FLG). 
6264 004672 052777 001000 174476 BIS #BiT9,aASR [SET MAINTENANCE ST2. 
6266 004700 005777 174472 TST @ASR :DID BIT15 (ST2 FLAG) SET? 
6267 004704 100402 BMI! 1$ 7BR IF YES = NEXT TEST 
oses 
1 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6270 004706 104001 ERROR 1 ZERROR = MAINTENANCE ST2 (BIT9) 
6271 zDID NOT SET BIT15 (ST2 FLAG). 
on 
1 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6274 004710 000410 BR TST26 F 
6275 004712 005737 001440 1$: TST EXS 3 TEST EXTERNAL SIGNALS? 
6276 004716 001405 BEQ TST26 
6277 004720 032777 000004 174466 BIT #B1T2,a0R b1D EXTERNAL ST2 GET SET? 
6278 004726 001001 BNE TST26 33 
: SSSSSSSSSSSSSSSSSSSESESS>>> ERROR <<<SSSSSSSSSSSSSSSESESSSSSSSSSSSSS 
62 ERROR 6 zST2 OUT NOT DETECTED 
628) [BY TESTOR 


zs SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSES 


6283 
6284 


é 
3 
2 
$ 


3 
KWV1TA DISAGNOSTIC MAINDEC=11=CNKWA-A MACY11 30(1046) 16-DEC-82 Mis: 42 PAGE 67 
CNKWAA.P11 To -bECHB? 15538 T2 *TEST THE SETTING OF MAINTENANCE ST2 IN CLOCK BIT 15 TO SET SEQ 0033 

$286 J PASA SSA SASS SAAS SKS SHAS AHS K SHEKHAR EARAAEEHEAAEAAAEAAEAEEEEEEE 

(3) tSTEST 26 *TEST THAT BITOO IN CLOCK STATUS REG. WILL SET WHEN BIT73 AND MAIN. ST2 

(3) neti iach 

(2) 004732 000004 13126: SCOPE 
6288 
6289 004734 012777 020000 174434 MOV #81713, aASR :SET “'ST2 ENB COUNTER" IN CLK STATUS REG. 
6290 004742 052777 001000 174426 BIS #BIT9,aASR ;GENERATE A MAINTENANCE ST2. 
6291 004750 032777 000001 174420 BIT #81706, aASR [DID BITOO (GO) SET? 
629¢ 004756 001001 BNE 1$ [BR IF YES = NEXT TEST. 
629% 

J SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

6295 004760 104001 ERROR 1 ZERROR = BITOO OF CLOCK® $ STATUS REGISTER 
6296 [FAILED TO SET WHEN BIT13 WAS SET 

6297 ZAND A MAINTENANCE ST2 GENERATED. 
$535 

s  SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

6300 004762 005077 174410 1$: CLR @asR ZLEAVE SUBTEST WITH CLOCK CLEAR. 

6302 -S8TTL *& 

6303 -SBTTL *PHASE 3 COUNT TESTS 

6304 -SBTTL ®*# 


ee ee eee ee 


KWV1TA DISAGNO 
CNKWAA.P11 


[oo a 


6307 
6308 


631 


WAAR RRR RRA AUWA 
ce ee ed oe ed et oe tO et 
NOwwewwewvwuuvuvuuvuw we Vi & 


ao 


005076 


052777 
017737 


174402 
174400 
000061 


000400 
174356 
001424 
177707 
004005 
001424 


001000 
174320 
174310 
001126 


174370 
174362 


174322 
001126 


I 3 
oe MACY11 30(1046) 16=DEC-82 15:42 PAGE 68 
© 


PARAS AAAALADA AL ALAA AAA AAA AERTS GS 


sSTEST 27 “TEST TO SEE IF THE COUNTER WILL INCREMENT 
*SSSKAASSEATAeSAKAeCeeeTeeeee eee eee eee ge gegaeaeaeeaaeaeeaeeeaeaeeeeeeaeeeee 

i127: SCOPE 

CLR @asR CLEAR THE CSR. 

CLR @ABR THE GUFF ER 

BIS #B1TS!B1T4!B1T0, eaten : SET RATE: 1, GO. 

BIS #B1T8.aASR i GENERAT ATE A MAINTENANCE ST. 

D THE CLOCK COUNT? 
MOV @ASR,-(6) ae E CSR 
MOV :/ 


(6) ,STMP3 GET CSR. 

BIC #177707,$TMP3 =: /SAVE RATE BITS. 

BIS #B81T11'B1T2!B1T0.$TMP 3/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
STMP3,aASR CSR. 


/THIS MUST BE DONE IN 
$ZORDER TO XFERR_ COUNTER 
BUFF A Sy ON ST2. 


/T0 

BIS #8119 @asR ?/GENERATE ON ST2 PUL 

MOV R, SBDDAT + /READ MME PRESET Buber. 
3/PREVIOUS COUNTE 

MOV (6)*,@ASR 3/CONTENTS ARE IN SBDDAT. 

TST SBDDAT S/RESTORE CSR 

BNE 1$ SYES, NEXT TEST. 


zs SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 6 sCLOCK FAILED TO INCREMENT. 


5 SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSESSS 
1$: 


3 
NDEC-11=CNKWA-A mace 30(1046) 16-DE Ec~82 * 15:42 


KWVI1TA DISAGNOSTIC MAI PAGE 69 
CNKWAA.P11  16=DEC=82 15:38 12? *TEST TO SEE IF THE COUNTER WILL INCREMENT SEQ 0035 
$33 3 3 "SSSA eKeeeaeeeeeeeeeeeeeee ees RK eeaee ae ee aeaeaeeeaeaeeaeeaeeaeeeeaee eee 
(3) Z*TEST 30 *SEE IF CLOCK WILL COUNT UP FROM A ZERO BASE, RATE:ST1 
3? 
(4) ie NOTE: IN THIS, TEST. LOOP ON ERROR WILL CAUSE A LOOP 
(4) 3* ON THE FAILING COUT 
| ©) ie WHILE LOOP ON TEST WILL START THE TEST 
ri = AND THE CLOCK FROM ZERO TO THE FAILING COUNT. 
| (3) r4 3 a eee ee 
(2) 005076 000004 ig SCOPE 
AaY 005100 012737 000010 001160 MOV #10, STIMES 3:00 10 ITERATIONS 
| 6335 005106 005077 174264 CLR @ASR CLEAR THE CSR. 
| 6336 005112 005077 174262 CLR aaBR CLEAR THE BUFFER REG 
| 6337 005116 012737 000000 001124 MOV SGDDAT SCLEAR EXPECTED. 
6338 005124 012737 005266 001110 MOV 728 SL PERR 
6340 005132 052777 000061 174236 1$: BIS #B1TS!BIT4'!BITO,@ASR :START CLOCK, RATE:ST1. 
6342 005140 052777 000400 174230 BIS #B1T8,aASR :GENERATE A MAINTENANCE ST1 
6343 [CLOCK SHOULD COUNT ONCE. 
6344 0051746 005737 001440 TST EXS 3TEST EXTERNAL SIGNALS? 
6345 005152 001406 BEQ 10$ 
6346 005154 032777 000002 174232 BIT #B1T1,aDR 2YES = DID ST1 GET SET? 
6347 005162 001002 BNE 10$ YES 
s SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6349 005164 104006 ERROR 6 zST1 OUT NOT DETECTED 
6350 [BY TESTOR 
1 SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6352 005166 000447 BR TST31 i 
6353 005170 10S: 
6354 005170 017746 174202 MOV @ASR,-(6) :/SAVE CSR 
(1) 005174 011637 001424 MOV (6) S1mPs 7/GET CSR. 
(1) 042737 177707 001424 BIC #177707,$TMP3 =: /SAVE RATE BITS. 
(1) 005206 052737 004005 001424 BIS wait 61 12'B110, STMP3 ;:/SET MODE 2, NO RATE.DISABLE INTERNAL OSC 
(1) 005214 013777 001424 174154 MOV STMP3,a :/LOAD CSR. 
1) :/THIS MUST BE DONE IN 
(1) :/ORDER TO XFERR COUNTER 
(1) :/TO BUFFER ON ST2. 
(1) 005222 052777 001000 174146 BIS #B1T9,aASR :/GENERATE ON ST2 PULSE 
(1) 5230 017737 174144 001126 MOV @ABR, $BDDAT S/READ THE PRESET BUFFER, 
(1) 005236 012677 174134 MOV (6)+,@ASR :/CONTENTS ARE IN SBDDAT. 
(1) 005242 005737 001126 TST SBDDAT s/RESTORE CSR 
6355 005246 005237 001124 INC SGDDAT SCOUNT=OLD COUNT+1 
6356 005252 023737 001124 001126 CMP SGDDAT,SBDDAT :COUNT READ=COUNT EXP*ED? 
6397 5260 001402 BEQ 2$ TYES = SEE IF WE'RE THROUGH. 


zs SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


a tC ee 





xwvita DISA 
| CNKWAA.P11 


6359 
-6360 


an 
pebatetetatere 
Syes98 


005262 


005420 


GNOST 
1 





IC_ MAINDEC-11-CNKWA-A 
6-DEC-82 15:38 


104011 


000410 
005077 
013777 
005737 
001312 


005077 
012777 
052777 
052777 


105777 
100402 


001440 


170500 
170502 
000040 
000010 


174032 
177777 


000061 
000400 
174004 


001440 
170500 


174100 


170500 


174026 
174016 
174010 


3 
MACY11 30(1046) 16-DEC-82 5: 42 PAGE 69- 
T30 *SEE IF CLOCK WILL COUNT UP FROM A 1ERO BASE, RATE:ST1 


ERROR 11 sCLOCK FAILED TO COUNT UP PROPERLY. 
s  SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
BR 3$ :GOTO SCOPE LOOP. 
2$: CLR @ASR 
MOV SGDDAT,@ABR 
TST SGDDAT ALL DONE? 
na BNE [NO DO NEXT INCREMENT. ; 
FARRAR AREAARERAE AE ATETA TERE RATES EAAAAAEAEEEEREEEEEEEEAEAEEERERED 
TEST 31 ° TEST THAT OVERFLOW (CSR BITO7) WILL SET ON OVERFLOW 
PERERA EAAAAAEAETAERERA EEA AE EA EEEAAEEERERAEEREREEEEEREEEEEREEEE 
i$131: SCOPE 
TST EXS ;TESTOR MODE ENABLED? 
BEQ 2s [NO=THEN SKIP NEXT SECTION OF CODE. 
CLR a#170500 sCLEAR TESTOR A/D 
TST a#170502 [DUMB READ OF A/D BUFFER. 
BIS #B1T5,a#170500 ENABLE EXTRENAL START OF A/D. 
im MOV #8. ,RO [SET TIME OUT NUMBER. 
CLR @ASR :CLEAR THE CSR 
MCV #~1, @ABR [SET PRESET BUFFER TO ALL ONES. 
BIS #BITS!BIT4!BITO,@ASR ;START CLOCK, RATE ST1. 
BIS #B1T8,aASR COUNT CLOCK. 0 ONCE, OVERFLOW 
TSTB = @ASR [DID OVERFLOW SET? 
BMI 1$ TYES = THEN NEXT TEST 


3s SSSSSSSSSSSSSSSSSSSSSSEES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 6 sERROR = OVERFLOW, CSR BITO? 
ZFAILED TO SET ON OVERFLOW 


BR TST32 
1$: TST EXS 3TEST EXTERNAL SIGNALS? 
BEQ TST32 
TSTB #170500 <1 OVERFLOW GOT OUT.IT GAVE A/D START. 
zWE* RE LOOKING FOR A/D DONE-DID IT GET SET? 
BMI TST32 
DEC RO :b1D WE ALLOW ENOUGH TIME?? 
BNE 1$ SNO-THEN WAIT. 
s SSSSSSSSSSSSSSSSESESESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 6 ZOVERFLOW OUT NOT DETECTED 
[BY TESTOR 


3s SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


SEQ 0036 


—_— ——__-_- _ _ ___ 


KWVITA DISAGNOS! 


CNKWAA.PT 


wt Te tee 
DWDONOUSWN oO 


Rhocccocecece 


~ 
= 


6431 


FERAFF 
EARN 


RF 
& 


SS 


EE 


3 


005422 


005424 
005430 
005436 
005444 


005452 
005460 


005462 


005464 


005526 





IC MAINDEC-11=-CNKWA-A 
15:38 


16=DEC 


000004 


005077 
012777 
052777 
052777 


032777 
001401 


005077 


173746 
177777 
000061 
000400 


000001 


173704 
177777 
000063 


000400 
000001 


173644 


173742 
173732 
173724 


173716 


173700 
173670 


173662 
173654 


L_3 
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131 *TEST THAT OVERFLOW (CSR BITO7) WILL SET ON OVERFLOW 


SSESAAAAAAEAAEA: KEKAAEKAKHEKSAAAAAAAAERAAAAAAEAAAERAEEEAEAAERAEE 


TEST 32 *TEST THAT OVERFLOW WILL CLEAR THE GO BIT 


g peucensqecquncesensqcccscesescesqnncassesesconaesescconeoeseenss 
TS132: SCOPE 
CLR @ASR ZCLEAR THE CSR. 
MOV #-1,@ABR zPRESET CLOCK TO -1. 
BIS #BITS!BIT4!BITO,@ASR ;START CLOCK, RATE:ST1 
BIS #B1T8,aASR ;COUNT ONCE, OVERFLOW 
[SHOULD OCCUR CLEARING 
TENABLE (CSR BITOO) 
BIT #81T0,aASR zDID THE ENABLE CLEAR? 
BEQ 1$ 3YES = NEXT TEST. 
7 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 6 ERROR - OVERFLOW FAILED 
:TO CLEAR ENABLE (CSR BITOO) 


18: 
FF TARA AAA AAAAAE SEES E SEE E EEE EEEAAAEREEEEEAEEEEAEEEEREEEEEEEEE 
T*TEST 33 *TEST THAT GO BIT DOES NOT CLEAR ON OVERFLOW, IF MODE 1 
2 J SEAAAE AE AAE EAHA SAE AE EEE EEE EEE EEE AAEAEEEAEEEEAEEEAEEEEEEEERETE 
TS133: SCOPE 

CLR @ASR ;CLEAR THE CSR. 

MOV #-1,a@ABR ;PRESET BUFFER=ONE COUNT FROM OVERFLOW. 

BIS #63.aASR :MODE 1, RATE:ST1, GO. 

BIS #BiT8,aASR sGENERATE MAINTENANCE ST1. 

BIT #B1TO,@ASR :DID ENABLE (GO BIT) CLEAR? 

BNE 1$ ZNO (GOOD) NEXT TEST. 
2 SSSSSSSSSSSSSSSSSSSESSESS>>> ERROR <<<SSSSSSSSSSSESSSSSSSSSSSSSSSSSSSE 


ERROR 6 :G0 BIT CLEARED ON OVERFLOW 
3WHEN MODE 1 WAS SELECTED 


zs SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


1$: CLR @ASR sCLEAR THE CLOCK. 


SEQ 0037 


p> ee 


a3 
levtta DISAGNOSTIC ~ beet MACY11 30(1046) 16-DEC-82 15:42 PAGE 69-3 
iB 15:38 T3 *TEST THAT GO BIT DOES NOT CLEAR ON OVERFLOW, IF MODE 1 SEQ 0038 


‘ eee —_——— — —— 


nN 3 
he Fae: HD ee “en 30(1046) 16=DEC-82 15:42 PAGE 70 


Wrrc re ec 
j 
ICNKWAA.P11 —- 16=DEC *TEST THAT GO BIT DOES NOT CLEAR ON OVERFLOW, IF MODE 1 SEQ 0039 
rr 
(5) FARRER EEE EEEAEE ERE EAE EEE EE EEEEEEEEEEEEEEEEEEEEAEEEEEEEEEEEE 
(4) :STEST 34 *TEST THE ABILITY OF CLOCK TO COUNT AT 1MHZ RATE 
(5) 
(5) jTHIs TEST IS DESIGNED TO TEST THE CLOCK'S ABILITY 
(2) *TO0 COUNT AT 1MHZ RATE. 
* 
(4) gage ae set hi i an este oan mata tng 
@) 005532 000004 18134: SCOPE 
(2) 005534 012737 000005 001160 MOV #5, STIMES ::D0 5 ITERATIONS 
(1) 
(1) 005542 005077 173630 CLR @ASR :/CLEAR CLOCK 
(1) 005546 005077 173626 CLR @ABR :/CLEAR PRESET BUFFER 
(1) 005552 012777 000011 173616 MOV #B1T0!10,aASR s/START CLOCK, MODEO, RATE: 1MHZ 
i$ 005560 005000 CLR RO NOW WE°LL DO A PE TTLE DELAY. THIS DELAY 
(1) 005562 005200 1$: INC RO ;/WILL AMOUNT TO APPROXIMATELY 
(1) 005564 001376 BNE 1$ :/369 MS. 
(2) 005566 017746 173604 MOV ask -(6) :/SAVE CSR 
(2) 005572 011637 001424 MOV ) ST P3 :/GET C 
(2) 005576 042737 177707 001424 BIC $9550 STMP3  _: /SAVE CeATE BITS. 
(2) 052737 004005 001424 BIS aBiTit Bite !B1TO. STMP3 ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
(2) 005612 013777 001424 173556 MCV STMP3,aASR :/LOAD CSA. 
(2) z/THIS MUST BE DONE IN 
(2) ;JORDER TO XFERR COUNTER 
(2) :/TO BUFFER ON ST2. 
(2) 005620 052777 001000 173550 BIS #B1T9,aASR < TGENERATE ON ST2 PULSE 
(2) 005626 017737 173546 001126 MOV @ABR,, $BDDAT :/READ THE PRESET BUFFER, 
(2) :/PREVIOUS COUNTER 
(2) 005634 012677 173536 MOV (6)+,@ASR :/CONTENTS ARE IN SBDDAT. 
(2) 005640 005737 001126 TST SBDDAT ;/RESTORE CSR 
(1) 005644 001004 BNE 2$ z/¥ES = NEXT TEST. 
(1) 005646 105766 177776 TSTB  =s_- = 246) HIGH RATE MAY HAVE HAD OVERFLOW 
a) yd OTe. CSR HAD BEEN PUT ON STACK. 
(1) 005652 100401 BM! 2s :/NEXT TEST IF OVERFLOW. 
(2) 
; SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 005654 1046006 ERROR 6 7/CLOCK FAILED TO COUNT AT 
3 7 /RATE: 1MHZ 
: SSSSSSSSSSESSSSSESSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


j 
; 


-——- ~~ ee ee 


(1) 
(1) nese. peenyzy? 173514 “s okey paw c “7. 2e7 ° ~~ 
(ta 
(1) 
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(1) 006004 104006 ERROR 6 s/CLOCK FAILED TO COUNT AT 
3h 3 /RATE: 100KHZ 
3s SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


(1) 
$33 006006 005077 173364 2s: CLR @ASR :/CLEAR THE CLOCK. 
(1) 


Pll =—s« 16=DEC=82 15:38 734 *TEST THE ABILITY OF CLOCK TO COUNT AT 1MHZ RATE SEQ 0040 
38 
(5) FRARAAAAAAAERAAAAAEAKER EEE AEE AAA AAERERAATEAAEEAAAEEEEEREREEERETE 
| (4) TSTEST 35 *TEST THE ABILITY OF CLOCK TO COUNT AT 100KHZ RATE 
(5) 
— @) SATHIS TEST IS DESIGNED TO TEST THE CLOCK'S ABILITY 
(3) is *TO COUNT AT 100KHZ RATE. 
| (4) SREKASAAAAARAAAAARAAEAEASAKAKEKEKEKAAAAEAAAAAAARAERARAAEAAARAEAAARAEEEEE 
| 3) 005662 000004 +8135: SCOP 
(2) 005664 012737 000005 001160 MOV #5, STIMES 7:00 5 ITERATIONS 
(1) 
(1) 005672 005077 173500 CLR @ASR :/CLEAR CLOCK 
(1) 005676 005077 173476 CLR @ABR :/CLEAR PRESET BUFFER 
| (1) 005702 012777 000021 173466 MOV #81T0!20,aASR :/START CLOCK, MODEO, RATE: 100KHZ 
(1 005710 005000 CLR RO NOW WE'LL DO A Pe TtLE DELAY. THIS DELAY 
| 1) 005712 905200 1$: INC RO 3/WILL »Anount TO APPROXIMATELY 
(1) 005714 001376 BNE 1$ 7/369 M 
(2) 005716 017746 173454 MOV @ASR,-(6) :/SAVE CSR 
(2) 00572 01168 001424 MOV (6) dS TMP :/GET CSR. 
(2) 005726 042737 177707 001424 BIC #177707,$TMP3 3 /SAVE RATE BITS. 
| (3) 005734 052737 004005 001424 BIS weTitcbite ta1TO™ STMPS ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
(3) 005742 013777 001424 173426 MCV STMP3,aASR 
(2) s/THIS MUST BE DONE IN 
| @) :/ORDER TO KFERR R_SOUNTER 
(3) :/TO BUFFER 
(2) 005750 052777 1000 173420 BIS #B1T9,aASR :/GENERATE ON OY St PULSE 
(2) 005756 017737 173416 001126 MOV @ABR, $BDDAT :/READ THE PRESET BUFFER, 
(2) :/PREVIOUS COUNTER 
(3) 005764 012677 173406 MOV (6), @ASR i /CONTENTS ARE IN SBDDAT. 
(2) 005770 005737 001126 TST SBDDAT :/RESTORE C 
(1) 005774 001004 BNE 23 :/YES = NEXT Ries ST. 
(1) 005776 105766 177776 TSTB 0s = 26) :/AT HIGH RATE MAY HAVE HAD OVERFLOW 
(1) :/NOTE: CSR HAD BEEN PUT ON STACK. 
(1) 096002 100401 BMI 2$ :/NEXT TEST IF OVERFLOW. 
(2) 
1 SSSSSSSSSSSSSSSSSSESSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
| 
| 
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[ee 


000004 
012737 


005200 
001376 


013777 


052777 
017737 


012677 
005737 


001004 
105766 
100401 


104006 


005077 


000005 


173350 
173346 
000031 


173324 
001424 
177707 
004005 
001424 


001000 
173266 
173256 
001126 


177776 


173234 


BT Wie 
15:38 


001160 


173336 
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*TEST THE ABILITY OF CLOCK TO COUNT AT 100KHZ RATE 


FARRAR AAEAAAAAEAEAHAKERE SE TEAAAAARERAAAAEAAEAREEEAEEREREEREREEE 


SSTEST 36 *TEST THE ABILITY OF CLOCK TO COUNT AT 10KHZ RATE 


Estuis TEST IS eee 7 TEST THE CLOCK’S ABILITY 
*TO COUNT AT 10KHZ RAT 


SRE AAAAAAAAAEKAAHAAEEAAAATAEEAAAAAAAAAAARARAAREAAAAARAEREREEAEEE 


18136: SCOPE 
MOV #5, STIMES 3:00 5 ITERATIONS 
CLR @ASR Z/CLEAR CLOCK 
CLR @ABR :/CLEAR PRESET BUFFER 
MOV #81T0!30,aASR z/START CLOCK, MODEO E:10KHZ 
CLR RO :/NOW WE'LL DO A Parte SELAY. THIS DELAY 
1$: INC RO ;/WILL AMOUNT TO APPROXIMATELY 
BNE 1$ 7/369 MS. 
MOV aase -(6) ;/SAVE CSR 
MOV ) STMP3 :/GET CSR 
BIC $93570 ; STMP3 3 /SAVE RATE BITS. 
BIS oBITT1 Bite tB1T0: STA 3/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
MCV STRP3.a aasR :/LOAD CSR. 
:/THIS MUST BE DONE IN 
3/ORDER TO XFERR OUNTER 
BUFFER 
BIS #BIT9,@ASR ?7GENERATE ON ST2 PUL 
MOV @ABR, $BDDAT :/READ THE PRESET BUFFER. 
:/PREVIOUS COUNTER 
MOV (6)+,@ASR :/CONTENTS ARE IN SBDDAT. 
TST SBDDAT i /RE TORE CSR 
BNE 2$ /YES = NEXT TEST. 
TSB 40- =2(6) :VAT HIGH RATE MAY HAVE HAD OVERFLOW 
[/NOTE: CSR HAD BEEN PUT ON STACK. 
BMI 2$ [/NEXT TEST IF OVERFLOW. 


2s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 6 3/CLOCK FAILED TO COUNT AT 
3 /RATE : 10KHZ 


2 s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


23: CLR @ASR 3/CLEAR THE CLOCK. 
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6501 
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(5) 
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000004 
012737 


005077 
005077 
012777 
005000 
005200 
001376 
017746 
011637 
042737 


052737 
013777 


052777 
017737 


012677 
005737 


001004 
105766 
100401 


104006 


005077 


173104 


001160 


173206 
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136 *TEST THE ABILITY OF CLOCK TO COUNT AT 10KHZ RATE 


STEST 37. STEST THE ABILITY OF CLOCK TO COUNT AT IKHZ RATE 


T 37 


*TEST THE ABILITY OF CLOCK TO COUNT AT 1KHZ RATE 


Esturs TEST IS DESIGNED TO TEST THE CLOCKS ABILITY 
*TO COUNT AT 1KHZ RATE. 


MTTTITITITITIILL LLL LLT LLL LLL LLL) 


T$137: SCOPE 


1$: INC 


#5 ,STIMES 3300 5 ITERATIONS 


@ASR 3/CLEAR CLOCK 
@ABR 3/CLEAR PRESET BUFFER 
+ itn es i /START CLOCK, MODEO 


ATE : 1KHZ 
NOW WE'LL DO A OO TELE DELAY. THIS DELAY 


RO 3/WILL AMOUNT TO APPROXIMATELY 
1$ 3/369 MS. 


R,-(6) 3/SAVE CSR 


(6) ,$TMP3 :/GE CSR. 
#177707,$TMP3 —_: /SAVE RATE BITS. 


#BIT11 16112 B10. STMPS ;/SET wit 2. NO RATE,DISABLE INTERNAL OSC 
STMP3,@A 3/ 


;/THIS MUST BE BONE IN 
:/ORDER TO RON STS: OUNTER 


O BUFFER 
#B1T9,aASR $7GENERA $T2 PUL 
@ABR, SBDDAT :/READ M3 PRESET BUTTER. 
:/PREVIOUS COUNTER 
(6)+,@ASR :/CONTENTS ARE IN SBDDAT. 
SBDDAT z/R TORE CSR 
2$ :/YES = NEXT TEST. 
-2(6) :/AT HIGH RATE MAY HAVE HAD OVERFLOW 
:/NOTE: CSR HAD BEEN PUT ON STACK. 
2$ :/NEXT TEST IF OVERFLOW. 


2 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 6 s/CL ORK FAILED TO COUNT AT 


3 /RATE : 1KHZ 


zs SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


23: CLR 


@ASR 3/CLEAR THE CLOCK. 


SEQ 0042 


KWVTTA DI 
CNKWAA.P1 


EPL PAPAL LL Pe Fy Fm Oe 


RO = = = = SS PUPRUIRINUNINININININIDINI]D 9 98 9 ot 9 ot I St SMW EO 
eee ee eh 


a he ae 
Na 
~~ oa 


a ae ee ee) 
2 3 
wee ee we 


; 


006414 


006416 


SAGNOS 
1 1 


IC_ MA —— 
5:38 


T 
6-DEC-8. 


000004 
012737 


052737 
013777 


052777 
017737 


012677 
005737 
001004 


105766 
100401 


005077 


000005 
173070 
173066 
000051 


173044 
001424 
177707 
004005 


001424 


001000 
173006 


172776 
001126 


177776 


172754 


001160 


173056 


E 
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FARA AAEE ERAS AEAEE EEE EEE A AAA EAAEAAAEEAAAAAAAAAAAEEEEREEEEEE 


SSTEST 40 *TEST THE ABILITY OF CLOCK TO COUNT AT 100HZ RATE 


:*THIs TEST IS Beat ante 7 TEST THE CLOCK'S ABILITY 
- *TO COUNT AT 100HZ R 


SRERAEAAAAAARAAAAAAEKEAAAAAEKASAAAAAAAAAAAAAAARAAAAAAEAARAEAEREREREE 


+8140: SCOPE 

MOV #5. STIMES 3300 5 ITERATIONS 

CLR @ASR 3/CLEAR CLO 

CLP @ABR /CLEAR PRESET BUFFER 

MGV #81T0!50,aASR S/START Lock MODEO, RATE: 100HZ 

CLR RO 3/ L DOA Pe TfLE DELAY. THIS DELAY 
1$: INC RO y/WILL AMOUNT TO APPROXIMATELY 

BNE 1$ 7/369 MS. 

MOV @ASR,-(6) :/SAVE CSR 


MOV (6) TPS :/GET CSR. 
BIC #177707,$TMP3 _: /SAVE RATE BITS. 


BIS #B1T11 BLteB1T0.STAP 3/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 


MCV STMPS,@ASR ;/LOAD CSR. 
3/THIS MUST BE DONE IN 
;/0RDER TO a — 
3/TO BUFFER 
BIS #B1T9 a 3/GENERATE ON N ste PULSE 
MOV @ABR, SBDDA 3/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTE 
MOV (6)+,@ASR yA dh he ARE IN SBDDAT. 
TST SBDDAT 3/RESTORE CSR 
BNE $ 3/YES = NEXT TEST. 
TSTB ~2(6) 3/AT_HIGH RATE MAY HAVE HAD OVERFLOW 
3/NOTE: CSR HAD BEEN PUT ON STACK. 
BMI 2s 3/NEXT TEST IF OVERFLOW. 


2 s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 6 3/CLOCK FAILED TO COUNT AT 
/RATE : 100HZ 


3s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


2s: CLR @ASR 3/CLEAR THE CLOCK. 


a ee Ce + ees 


——— a ee + + —_———- - -—- -- _—_— -- — - 
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‘CNKWAA.P11 | 16=DEC=8 *TEST THE ABILITY OF CLOCK TO COUNT AT 100HZ RATE SEQ 0044 

8g 

(5) FURAAAAAAAAAAAAAAAAE ESHA RE KE ESHA RARE EAEREEEREEEAAEAEAEAEAEAER EEE 
(4) tS TEST 41 *TEST THE ABILITY OF CLOCK TO COUNT AT LINEFREQ RATE 
(5) 

(5) Estas TEST IS DESIGNED TO TEST THE CLOCK'S ABILITY 

(3) *TO COUNT AT LINEFREQ RATE. 

(4) pT 
3) 006422 000004 jesse SCOPE 

(2) 006424 012737 000005 001160 MOV #5, STIMES 3:00 5 ITERATIONS 

(1) 006432 032777 010000 172500 BIT #B1T12,aSWR sSHALL WE TEST 

(1) ZLINE FREQ? 

(1) Wi2=1 

(3) 006440 001450 BEQ TST42 33 

(1) 006442 005077 172730 CLR @ASR :/CLEAR CLOCK 

(1) 006446 005077 172726 CLR @ABR :/CLEAR PRESET BUFFER 

(1) 006452 012777 000071 172716 MOV #81T0!70,@ASR s/START CLOCK, MODEO, RATE :LINEFREQ 
(1) 006460 005000 CLR RO NOW WE°LL DO A LITTLE DELAY. THIS DELAY 
(1) 006462 005200 1$: INC RO :/WILL AMOUNT TO APPROXIMATELY 

(1) 006464 001376 BNE 1$ 3/369 MS. 

(2) 006466 017746 172704 MCV @ASR,-(6) :/SAVE CSR 

(2) 006472 011637 001424 MOV (6) HPS :/GET CSR. 

(2) 006476 042737 177707 001424 BIC #177707,$TMP3 3 /SAVE RATE BITS. 

(2) 006504 052737 004005 001424 BIS gBTt1 bite tBITO. STMP3 ;/SET MODE 2, NO RATE.DISABLE INTERNAL OSC 
(2) 006512 013777 001424 172656 MOV STHPS. aasR :/LOAD CSR. 

(2) :/THIS MUST BE DONE IN 

(2) :/ORDER TO XFERR COUNTER 

(2) :/TO BUFFER ON ST2. 

(2) 006520 052777 001000 172650 BIS #B1T9,aASR :/GENERATE ON ST2 PULSE 

(2) 006526 017737 172646 001126 MOV @ABR, $BDDAT :/READ THE PRESET BUFFER, 

(2) :/PREVIOUS COUNTER 

(2) 006534 012677 172636 MOV (6)*,@ASR :/CONTENTS ARE IN SBDDAT. 

(2) 006540 005737 001126 TST SBDDAT :/RESTORE CSR 

(1) 006544 001004 BNE 2$ :/YES = NEXT TEST. 

(1) 006546 105766 177776 TSTB 30s = 2(6) 3/AT H HIGH RATE MAY HAVE HAD OVERFLOW 
(1) NOTE: CSR HAD BEEN PUT ON STACK. 
(1) 006552 100401 BMI 23 SaNEXT TEST IF OVERFLOW. 

(2) 


3s SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


(1) 006554 104006 ERROR 6 3/CLOCK FAILED TO COUNT AT 
(2) 3 /RATE :LINEFREQ 


3s SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSESSSSSSSSSSSSSSSSSSSSSSSSSSSS 


(1) 
144 006556 005077 172614 23: CLR @ASR 3/CLEAR THE CLOCK. 
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CNKWAA.P11 


OEP PPR PPP Pe PP 


eek a oad ah a a 
a ee ee ee ee ee ee ee ee ee ee ee 


535 006720 


000004 
012737 


005077 
005077 


052777 
052777 
005000 
005200 
001376 
017746 


005077 


000020 
172600 
172576 
000001 
000400 


se 
001424 

177707 
004005 
001424 


001 

172510 
172500 
001126 
172466 


001124 


172452 


172644 
177777 


001160 


172566 
172560 


172440 
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*TEST THE ABILITY OF CLOCK TO COUNT AT LINEFREQ RATE 


fF TASH SAA AASA AEH AA HSA SSAK SSK AHHH SAAAEKA HAHAHAHAHAHA ATAAEEKEES 


*TEST THAT COUNTER DOESN'T COUNT WHEN “‘SLAVE IN’ RATE IS SELECTED 


TATEST ae 


MPARAAAAAAAAAL ALAA AAD AAL AAA AAAS RRA RRR RRR RRR RDA SG 


tt42: 


1$: 


2$: 


SCOPE 
MOV 


CLR 
CLR 


BIS 


BIS 
CLR 


INC 
BNE 


CLR 


#20, STIMES 


@ASR 
@ABR 


#B1T0,aASR 
#B1T8,aASR 
RO 

RO 

1$ 

ask -(6) 
) STMP3 

airs 707 
STMP 


#B1T9,@ASR 
@ABR, $BDDAT 
(6)+,@ASR 
SBDDAT 

2$ 

@ASR 

3$ 


SGDDAT 


7:D0 20 ITERATIONS 


sCLEAR CSR. 
CLEAR PRESET BUFFER. 


:SET GO BIT, RATE:*‘SLAVE IN’ 
GENERATE A MAINTENANCE ST1. 


NOW DO A SHORT DELAY. 


3/SAVE CSR 
3/GET CSR. 
3/SAVE RATE BITS. 


7, STMP 
#B1T11!B1T2!BIT0,$TMPS ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
3,@ASR ;/LOAD CSR. 


THIS MUST BE DONE IN 
:7ORDER TO XFERR COUNTER 
/TO BUFF 4 ON ST2. 
?/GENERA E ON ST2 PULSE 
3 /READ THE PRESET BUFFER, 
OUS COUNTER 
: 7 CONTENTS - IN SBDDAT. 
: /RESTORE 
31 Y 
ye FOR RFL 
s1F NO OVERFLOW, eit TEST 
sCLEAR FOR TYPEOUT, EXP'D ZERO. 


3s SSSSSSSSSSSSSSSSSSSSSESES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


11 


CLOCK COUNTED WHEN RATE:*’SLAVE IN’ 
sWAS SELECTED. 


3s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


@ASR 


sCLEAR CLOCK*S CSR. 


J TARAS AAEAAAAAEHAESAASAAAAAEEEAAAAAEHAEAHAEAAAERAEREKAAAARAEEEEe 


*TEST THAT THE CLOCK WILL COUNT IN MODE 1 


—PPARAAAAAAARAAALAAAARALAAL AAA AAA AL EAA LER RRA ARERR RR ER ARERR RARE GS 


3$: CLR 

*STEST 43 

1143: SCOPE 
CLR 
MOV 


@ASR 
#-1,@ABR 


CLEAR THE CSR. 
PRESET BUFFER REG. 


SEQ 0046 


KWVTTA DISAGNOSTIC 
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Uwe we wes we — SS dd 


006740 
006746 
006750 
006752 


606754 
006760 


006762 


006764 
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005000 
105200 
001376 


105777 
100401 


104006 


000004 
012737 


012746 
012746 
000002 
005077 
012777 
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000002 
000240 
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000013 


172416 


~— 
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N 
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172430 


001160 
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*TEST THAT THE CLOCK WILL COUNT IN MODE 1 


ot 


CLR 
1$: INCB 
BNE 


TST8 


BMI 


3s SSSSSSSSSSSSSESSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


#13,aASR 
RO 
RO 
1$ 


@ASR 
2s 


ERROR 6 


3s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


2$: 


-SBTTL 
-SBTTL 
-SBTTL 


START CLOCK,RATE:1 MHZ,MODE 1. 


NOW DO A SHORT DELAY SO THAT THE 
3CLOCK CAN COUNT TO OVERFLOW. 


OVERFLOW SHOULD HAVE SET. 
GOTO NEXT TEST IF SO. 


sCLOCK FAILED TO yoo UP AND SET 
OVERFLOW IN MODE 1 


* 
*PHASE 4 CLOCK INTERRUPT TEST. 
& 


FEARS AAAS EASE ASS CHEEKS KSA AAAAAAAAAEAAAAAAAAEEAEEHRAERAEEEEEE 


*TEST THAT THE CLOCK WILL INTERRUPT ON OVERFLOW 


FARES SAREE AAS EAH SAHA AS TESS ESEHEAAAEEAAAAEHAAEEEAAAAAAEAAEEEEREEEE 


TEST 4h 


1s 44: SCOPE 


MOV 


MOV 

MOV 

RTI 
64$: 

CLR 


65$: 


RTI 
66$: 


#20, STIMES 


#340,-(SP) 
#64$ ,-(SP) 


@ASR 
a-1 -@ABR 


#161,@ASR 


#8178, aASR 
#1$,aveECcTI 


7088. 3CSP) 


#340,-(SP) 
#66$,-(SP) 


33D0 20 ITERATIONS 


PUT PRIORITY ON STACK. 
[PUT RETURN ADDRESS ON STACK 
7D0 AN RTI, PUTS PRIORITY IN CPU. 


a CLOCK*S CSR. 
SET PRESET BUFFER TO ALL ONES. 


sSTART CLOCK, RATE:S 
:GENERATE A RAINTENANCE ST1. 
75ET INTERRUPT 


zPUT PRIORITY ON STACK. 
;PUT RETURN ADDRESS ON STAC 
3D0 AN RTI, PUTS PRIORITY IN CPU. 


sSTALL TIME 
;PUT PRIORITY ON hee 


PUT RETURN ADDRESS ON STACK 
3D0 AN RTI, PUTS PRIORITY IN CPU. 


SEQ 0047 
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PAGE 76-2 
CNKWAA.P11 *TEST THAT THE CLOCK WILL INTERRUPT ON OVERFLOW SEQ 0048 
3 SSSSSSSSSSSSSSSSSSSSESSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
658% 007070 104007 ERROR 7 sCLOCK FAILED TO INTERRUPT. 
; SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6586 007072 000402 BR 2s 
6587 007074 1$: 
(1) 007074 062706 900004 ADD =s_-«#4, SP /ADD #4 TO STACK POINTER. 
6588 007100 005077 172272 28: CLR —s @ASR SCLEAR THE CLOCK. 
6590 fF PASSES AAAS AAAS SHAH AAS S CEKEAEE EAHA AEEAEAAAAAEAAEEEEEAEAEEEE 
 @ TEST 45 *TEST THAT ST2 WILL CAUSE AN INTERRUPT 
j (3) JPRS SAAS EAHA AE EEA KSEE TEESE AAA EAAAAAHEAEEAEHAAAAEREEEAAAEEEEE 
| @ 007104 000004 18145: SCOPE 
Se 
| (1) 007106 012746 000340 MOV #340,-(SP) sPU: PRIORITY ON STACK. 
| (1) 007112 --012746 = 007126 MOV  #64$,-(SP) ;PUT RETURN ADDRESS ON STACK 
| (1) 007116 006002 RTI ;D0 AN RTI, PUTS PRIORITY IN CPU. 
6 007120 648: 
659% 20 005077 172252 CLR —s- @ASR ZCLEAR CLOCKS CSR. 
6595 007124 012777 007200 172254 MOV =: #1$ ,avECT2 ;SET UP INTERRUPT VECTOR. 
59% 007132 012777 040001 172236 MOV § #BIT14!BITO,@ASR; SET HINTS “CAND AND GO BIT. 
6397 007140 052777 001000 172230 BIS § #BIT9,aASk GENERATE A MAINTENANCE ST2. 
(1) 007146 012746 000000 MOV =s_- #0, = (SP) PUT PRIORITY ON STACK. 
(1) 007152 012746 007160 MOV ©: #65$,,=( SP) PUT RETURN ADDRESS ON STACK 
(1) 007156 000002 RTI ;D0 AN RTI, PUTS PRIORITY IN CPU. 
Ase 007160 658: 
6600 007160 000240 NOP STALL TIME 
(1) 007162 012746 000340 MOV =: #340,,=(SP) sPUT PRIORITY ON STACK. 
(1) 007166 012746 007174 MOV = #66$,-(SP) PUT RETURN ADDRESS ON STACK 
(1) 007172 000002 RTI 3D0 AN RTI, PUTS PRIORITY IN CPU. 
(1) 007174 668: 
j  SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6603 007174 104007 ERROR 7 sCLOCK FAILED TO INTERRUPT ON ST2. 
js SSSSSSSSSSSSESSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6605 007176 000402 BR 2s 
6606 007200 1$: 
(1) 007200 062706 000004 ADD =s_-«#4, SP /ADD #4 TO STACK POINTER. 
6607 007204 005077 172166 2s: CLR —s- @ASR ZCLEAR CLOCK'S CSR. 
6609 -SBTTL * 
6610 ~SBTTL *PHASE 5 ADVANCED TESTING 
6611 .SBITL * 
| 6612 
| 


sain cde sem essence emocesemiggtily 


K 


6710 007264 


6731 007350 
32 


11A DISAGNOST 
Pll 16 


IC MAINDEC-11-CNKWA-A 
"82 15:38 


“DEC 


052777 


032777 
001007 


017737 
012737 


104001 


000004 
012737 


032777 
001007 
017737 
012737 


104001 


000002 


172076 
177777 
000013 


172146 
172140 
172132 


001126 
001124 


001160 


172072 
172062 


172046 


001126 
001124 


0 ae 30(1046) 16-DEC-82 Kiss 42 PAGE 77 
T46 *TEST THAT THE “FOR’’ BIT WILL SET ON 2 ST2°S 


fF TRAE AEA EK EAE SE SKEET KEES AEA EAEAAEAAEEREEEREEETEEEEE 


tS TEST 46 *TEST THAT THE ‘FOR’ BIT WILL SET ON 2 ST2'S 
SSSA eTKeARAKeEAAaAeaaeaeaeaeaaeaeaeaeeeaeeeaeaeeaeaese 
3146: SCOPE 
CLR @ASR :START WITH CSR CLEAR. 
INC @ASR 3SET GO 
BIS #B1T9,aASR : GENERATE THE 1ST ST2 PULSE. 
BIS #81T9,aASR 3 GENER ATE 2ND $ 
:THIS SHOULD CAUSE FOR BIT TO SET. 
BIT #B1T12,aASR [DID FOR BIT SET? 
BNE 1$ ZYES-THEN NEXT TEST. 
MOV SBDDAT *RECORD CSR. 
MOV eerie :BITi2!B1 TO $GoDAT ZRECORD $/B. 
1 SSSSSSSSSSSSSSSSSSSESSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 1 ZERROR-"FOR" BIT FAILED TO SET ON 


[ON TWO SUCCESIVE ST2 PULSES. 
7 SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1$: 


FF SAREE AAE REAR AAAE EEE EE AEE E EEE AAAEEAEEEAAEEEEREREEEEEEEEEREEEERE 


s*TEST 47 *TEST THAT FOR BIT WILL SET ON TWO OVERFLOWS 
ice T iii iii iii iite ir ite ii ittisiiitttiitiiistitttititiiictti iis) 
18147: SCOPE 
MOV #2, STIMES 33D0 2 ITERATIONS 
CLR @ASR sSTART WITH CSR CLEAR. 
MOV #-1,@ABR ELOAD BUFFER 
BIS #13,aASR iSTART yee 1, 1MHZ. 
CLR RO SNOW DO A SHORT DELAY. 
1$: INCB rr ZDURING THIS BeAr THE CLOCK WILL 
BNE ;HAVE OVERFLOWED T 


zTHIS SHOULD CAUSE THE “FOR BIT TO SET. 


BIT #B81T12,aASR DID FOR SET? 
BNE 2s 2 VES-NEXT TEST. 


MOV @ASR $B0DAT ZNO-RECORD THE CSR. 
MOV #010213,$GDDAT :RECORD $/B. 


zs SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 1 sERROR FOR BIT FAILED TO SET ON 
: TWO SUCCESSIVE OVERFLOWS. 


2 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


Ff TARA AERA REAEEEAHEAEAAAAEAAAEEAEAREAAHAEREEAAAEHEEREKAAAAAEEAAEES 


SEQ 0049 


6752 007436 


Ce ee ee ee ee ee ee ee 
ed ed nd SD 
er ee ee ee ee ee ee ee ee ee 


r— 


065077 


000004 
012737 


052777 
017737 


NDEC-11-CNKWA-A 
15:38 


171734 


171774 
171766 


001126 


001124 
001126 


001160 


MACY11 30(1046) 


T50 


z*TEST 50 


t§150: 


SCOPE 


MOV 


MOV 
BIT 
BEQ 


16=DEC-82 List 42 PAGE 77-1 
*TEST THAT FOR BIT WILL CLEAR IF GO BIT IS SET 


*TEST THAT FOR BIT WILL CLEAR IF GO BIT IS SET 


©  EEEAAAEAAEAAAAAAAAAEEEEKAKAEAEAAEAARAAAEAREAAAAAAARAEAATERAEREAREEEE 


#B1TO,aASR 
#B1T9,aASR 
#B1T9,aASR 
#B1TO,@ASR 


#B81T0,aASR 


@ASR ,SBDDAT 


#100001, $GDDAT 
#BiTie, »SBDDAT 


ZCLEAR CSR,SET GO BIT. 
:SET 1ST S$T2 PULSE. 
ZGENERATE 2ND ST2 PULSE. 
[FOR BIT SETS HERE. 
ZCLEAR GO BIT. 


3SET THE “'GO’’ BIT AGAIN - 
SHOULD CLEAR FOR BIT. 


sREAD THE CSR. 
RECORD WHAT CSR — 


:DID FOR BIT CLEAR 
:YES NEXT TEST. 


2 s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 


1 


zFOR BIT FALED TO CLEAR 
WHEN ‘GO’ BIT WAS SET. 


zs SSSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


1$: 


CLR 


@ASR 


sCLEAR THE CSR. 


FARA AA AAA AAAS AEA E AEE EAE EEE AEAEAAEEAEEAEEEEEAEEEEEEEEE 


TEST 51 


18151 


1$: 


SCOPE 


*TEST THAT WE CAN DISABLE THE INTERNAL OSC 


fF TRAAAAAAE AE AAAAEA SAAS E AAS EEE E AA AAAA AE AEEAAEAAEREEEREAEEEREEEEEE 


#5, STIMES 

@ASR 

@ABR 

SGDDAT 
#81T11,aASR 
#81T3'BITO,aASR 
RO 

RO 
1$ 

@ASR,-(6) 

(6) ,$T THPS 
#177707, $TMP3 


3300 5 ITERATIONS 

CLEAR THE CSR 

CLEAR THE PRESET BUFFER 
CLEAR EXPED. 


DISABLE THE INTERNAL OSC. 
START CLOCK:RATE 1MHZ. 


DELAY A SHORT TIME. 
2/SAVE CSR 

T CSR. 
$/SAV RATE BITS. 


#BiT11 Bite BIT. STMP s/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
@ASR OAD CSR. 


STMP3, 


#B1T9,aASR 
@ABR, $BDDAT 


L 
THIS MUST BE DONE IN 
:7ORDER TO XFERR COUNTER 
BUFFER ON ST2. 
‘ /GENERATE ON ST2 PULS 


E 
i /READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 


SEQ 0050 


KWV1TA DISAGNOSTIC MAINDEC-11-CNKWA-A 
CNKWAA.P 


11 


007572 


007722 


007724 


005077 


013777 


052777 
017737 


104011 


005077 


16-DEC-82 15:38 


171600 


171446 


MACY11 30(1046) 16-DEC-82 Mist 42 PAGE 77-2 
151 *TEST THAT WE CAN DISABLE THE INTERNAL OSC 


MOV (6)+,@ASR s/CONTENTS ARE IN SBDDAT. 
TST S$BDDAT z/RESTORE CSR 
BEQ 2s sNO = GOOD - NEXT TEST. 
zs SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 11 CLOCK DISABLE INTERNAL 
20SC. DID NOT WORK. 


3 s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


2s: CLR @ASR :CLEAR THE CSR. 
FARRAR AEEAAAAAE EEE RE EA EA EEEEAAAERAAEEEEAEEEAEEEEAEEEEREREEEEE 
TEST 52 *TEST THAT CLOCK CAN BE COUNTED USING MAINTENANCE OSC 
fF RREAAAAEEEAAAAEAE EEE EEE EEE EEEAEREEEEEAAEEEEEREAEEEAREREEEEEEE 
78152: SCOPE 
CLR @ASR ZCLEAR THE CSR 
CLR QABR [CLEAR THE PRESET BUFFER. 
BIS #BIT SDISABLE THE INTERNAL ost. 
BIS erate. @ASR 3 START CLOCK 
MOV #20. ,RO :SET TO COUNT 30" TIMES 
1$: BIS #B1T10,aASR ;GENERATE 1 MAINTENANCE OSC. 
ZNOTE: AT 1MHZ, IT TAKES 10 
‘MAINT. OSC TO EQUAL 1 COUNT 
INC RO :DO 20 MAINTENANCE OSC. 
BNE 1$ 
MOV aasr -(6) :/SAVE CSR 


MOV ) $TMP3 :/GET CSR. 
BIC §93575 ” STMP3 =: /SAVE RATE BITS 
BIS #1111 :8112!B1T0, ~STMP3 :/SET MODE MODE 2, NO RATE,DISABLE INTERNAL OSC 


MOV $TMP3 3 
:/THIS MUST BE SONE IN 
:/ORDER TO XFERR COUNTER 
:/TO BUFFER ON 
BIS #B1T9,aASR :/GENERATE ON ST2 PULSE 
MOV @ABR, $BDDAT /READ THE PRESET BUFFER, 
MOV (6)+,aASR :/CONTENTS ARE IN SBDDAT. 
TST SBDDAT S/RESTORE CSR 
BNE 2$ SYES = NEXT TEST. 


2 s SSSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 11 ERROR COULD NOT COUNT USING 
sMAINTENANCE OSC. 


2 2 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2$: CLR @ASR sCLEAR THE CSR. 


i ee ee ee ee ee ——— 


SEQ 0051 


-o OC + ee ees ree 


N 4 
‘KWVT1A DISAGNOSTIC MAINDEC=11-CNKWA=A MACY11 30(1046) 16-DEC-82 15:42 PAGE 78 
\CNKWAA.P11 ——-16=DEC Pay} 15:38 T52 *TEST THAT CLOCK CAN BE COUNTED USING MAINTENANCE GSC SEQ 0052 
| 6866 
| 6867 
mt 
(5) FERRARA ER EEAAAE EEE AEE EEE AAA AERA EAEEEEEEEEEEEEEEREREEREEEE 
| @) tSTEST 53 “TEST THE CLOCK'S 1MHZ DIVIDER 
} (4) SRAEAEAAAEEAEEEEEAAEEAEATATETAEEAEEAAEAAAAAARAAEREREEEAREEEREEKREEEEE 
(3) 007730 000004 +8153: SCOP 
(2) 007732 012737 000005 001160 MOV #5,STIMES ::D0 5 ITERATIONS 
(1) 007740 005077 171432 CLR @ASR +/CLEAR THE CSR. 
(1) 007744 005077 171430 CLik @ABR z/CLEAR THE PRESET BUFFER. 
(1) 007750 052777 004000 171420 BIS #81111 ,aASR ISABLE THE INTERNAL OSC. 
(1) 007756 052777 000011 171412 BIS #1!10,aASR < TENABLE CLOCK, RATE: 1MHZ 
(1) 
3 007764 012700 177766 10$: MOV #-10.,R0 3/SET TO GENERATE 10 OSC PULSES. 
(1) 007770 052777 002000 171400 1$: BIS #B81T10,aASR ph oe ge) a OSC PULSE. 
(1) 007776 005200 INC RO 10 OSC PULSES? 
axe 010000 001373 BNE 1$ oe - DO ANOTHER ONE. 
(1) 
(1) 010002 012737 000001 001124 2$: MOV #1,$GDDAT 3/SET ‘'- —— TYPEOUT = IF ANY. 
(2) 010010 017746 171362 MOV aAsR, -(6) z/SA VE C 
(2) 010014 011637 001424 MOV (6) STHPS 3/GET csr 
‘$3 010020 042737 177707 001424 BIC #17770 MP3 + /SAV RATE BITS. 
(2) 010026 052737 004005 001424 BIS wrth bt yo talT0™ STMP 3/SET MODE 2. NO RATE,DISABLE INTERNAL 29SC 
(2) 010034 013777 001424 171334 MOV STMP3,@ASR 3/ R. 
(2) ;/THIS MUST BE DONE IN 
(2) : ORDER TO XFERR COUNTER 
(2) :/T BUFFER ON ST2. 
(2) 010062 052777 001000 171326 BIS #BIT9,aASR : /GENERATE ON ST2 PULSE 
(2) 010050 017737 171324 001126 MOV @ABR, $BDDAT ‘° + /READ THE PRESET BUFFER, 
(2) : /PREVIOUS COUNTER 
(2) 010056 012677 171314 MOV (6)+, @ASR yh A ARE °'N S$BDDAT. 
(2) 010062 005737 001126 TST SBDDAT :/RESTORE C 
33 010066 013737 001124 001420 MOV SGDDAT ,STMPO :/STMPO USED IN ERROR TYPEOUT. 
3 010074 023737 001124 001126 CMP SGDDAT,SBDDAT :/DID CLOCK ADVANCE ONCE? 
cy) 010102 901402 BEO 38 :/VES = NEXT TEST. 
; SSSSSSSSSSSSSSSSSSSESSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS5 
| (1) 010106 104011 ERROR 11 7/7ERROR ON CLOCKIMHZ wes 
| @D 3/NOT GENERATED WHEN 1 
| a 3/0SC PULSES GENERATED. 
5S. PSSSSESSSESSSeSeesSeSa>> ERROR <<<$S500033S3S60089000080553350008 
(1) 010106 000463 gg 5$ 
(1) 010110 012700 000011 3$: OV #9.,.R0 ;/GET - Pw» OF MORE OSC PULSES 
( ‘TO BE GENERATED. 
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I SAGNOS TIC CPAINDECS11-CNKUA~A MACY11 30(1046) 16=DEC-82 15:42 PAGE 78-1 
11s: 16=DEC 15 *TEST THE CLOCK’S 1MHZ DIVIDER SEQ 0053 
010114 952777 002000 171254 4$: BIS #81T10,aASR :/ GENERATE ANOTHER OSC PULSE. 
g10122 5 DEC RO T WE W O CHECK 
010124 00137 BNE 4$ ANZ PULSE. ON 9 OSC PULSES. 
0101 017746 171264 MOV R,-(6) :/SAVE CSR 
0101 1163 001424 MOV ae P3 :/GET CSR. 
0101 7? 177707 001424 BIC 8 ; $TMP3 3 /SAVE RATE BITS. 
010144 052737 004005 001424 BIS watt 1 WbtyotaITO:StNe :/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
010152 013777 001424 171216 MOV STUPS. @ASR : 
:/THIS MUST BE DONE IN 
:/ORDER TO XFERR  GOUNTER 
:/TO BUFFER ON 
010160 052777 001000 171210 BIS #B1T9,aASR ?/GENERATE ON st PULSE 
010166 017737 171206 001126 MOV @ABR, $BDDAT z/READ THE PRESET BUFFER, 
010174 012677 171176 MOV (6)+,@ASR 3/CONTENTS ARE IN S$BDDAT. 
010200 005737 001126 TST T = /RESTORE C 
010204 023737 001124 001126 CMP SGDDAT,SBDDAT :/WAS ANOTHER 1MHZ PULSE GENERATED? 
010212 001401 BEQ S$ :/NO = NEXT TEST. 
3 SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
010214 104011 ERROR 11 :/WE SEEM TO HAVE GENERATED 
*/ANOTHER 1MHZ PULSE ON 
:/ONLY 9 MAINTENANCE 
:/0SC PULSES. 
j  SSSSSSSSSSSSSSSSSESSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
010216 005077 171154 5$: CLR @ASR :/CLEAR THE CSR. 
FREARAAAAAAAAARAA AAAS AEEE EE EEEAAAEEAAAAEAAEREREEAEEEAAEEEREREE 
TSTEST 56 *TEST THE CLOCK'S 100KHZ DIVIDER 
SRSAAAAAAASASAAAAAAAAAATAEAAKAAAAAAAAAAAAAAAARARAAARAARAARAEAAAAREEE 
010222 000004 +8154: SCOPE 
010224 012737 000005 001160 MOV #5. STIMES 3:00 5 ITERATIONS 
010232 005077 171140 CLR @ASR :/CLEAR THE C 
010236 005077 171136 CLR @ABR :/CLEAR THE SReger BUFFER. 
010242 052777 904000 171126 BIS 1711, @ASR :/DISABLE THE INTERNAL OSC. 
010250 052777 21 171120 BIS #1!20,aASR :/ENABLE CLOCK, RATE: 100KHZ 
010256 012700 177634 10$: MOV #-100.,R0 :/SET TO GENERATE 100 OSC PULSES. 
0102 52777 002000 171106 1$: BIS #B81T10,@ASR :/GENERAT ONE OSC PULSE. 
0102 $200 INC RO :/DONE 100 OSC PULSES? 
010272 00137 BNE 1$ [/NO = DO ANOTHER ONE. 
010274 012737 000001 001124 28: MOV #1, $GDDAT :/SET FOR ERROR TYPEOUT = IF ANY. 
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: 
wn 


| 1$ 
CNKWAA.PT 6-DEC=8 154 eTEST THE CLOCK'S 100KHZ DIVIDER SEQ 0054 
| (2) 010302 17746 171070 MOV @ASR,- () 3/SAVE CSR 
(2) 10 1 1424 MOV (6) SiHP3 :/GET CSR. 
| ¢8) 1051 7 7 001424 BIC #177707,$TMP3 _: /SAVE RATE BITS. 
(3) 010 52737 90409 1424 BIS qaitit 6 11218170;81 TMPS ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
| 010326 013777 001424 171042 MOV STHPS, ASR soieas ol D CSR. 
| 3 :/ORDER_ TO XFERR COUNTER 
| (2) 010334 052777 901009 171034 BIS #B1T9,aASR :/GENERATE ON ST2 PULSE 
| 3 010342 017737 171032 001126 MOV @ABR, $BDDAT z/READ THE PRESET BUFFER, 
1 2) 010350 012677 171022 (6)+,@ASR :/CONTENTS ARE IN SBDDAT. 
(2) 010354 005737 001126 TST T RESTORE 
(1) 010360 013737 001124 001420 MOV SGDDAT,STMPO § :/$TMPO USED IN ERROR TYPEOUT. 
(1 010366 023737 001124 00112 cMP SGDDAT,SBDDAT  ;/DID CLOCK ADVANCE ONCE? 
(1) 010374 001402 BEQ 3$ :/YES = NEXT TEST. 
7 sSSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 010376 104011 ERROR 11 :/ERROR ON CLOCK 1OOKHZ PULSE 
(1) :/NOT GENERATED WHEN 100 
ah :/0SC PULSES GENERATED. 
3 SSSSSSSSSSSSSSSSSSSESSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 010400 43 BR 5$ 
(1) 010402 seer 000143 3$: MOV #99..RO :/GET THE NUMBER OF MORE OSC PULSES 
(1) 3/T0 BE GENERATED. 
(1) 010406 052777 002000 170762 4$: BIS #B1T10,aASR ; /GENERATE UANOTHER OSC PULSE. 
(1) 010414 005300 DEC RO :/WHAT WE WANT TO CHECK 
(1) 010416 001575 BNE 4$ {TTOOKHE PULSE ON 99° OSC PULSES. 
(1) 
(2) 010420 017746 170752 MOV -(6) :/SAVE CSR 
(2) 010424 011637 0014 MOV ee} Re mPS :/ 
(2) 010430 042737 177707 001424 BIC #177707,$TMP3 =: /SAVE RATE BITS 
(2) 010436 02737 004005 001424 BIS wait Bite:B110, STMP3 ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
(2) 010444 013777 001424 170724 MOV STMP3,a :/LOAD CSR. 
(2) :/THIS MUST BE 
(2) : ORDER TO FERR OUNTER 
(2) 010452 052 001000 170716 BIS #B1T9,@ASR [/GENERATE ON ST2 PULSE 
(2) 010460 017737 170714 001126 MOV @ABR, $BDDAT z/READ THE PRESET BUFFER, 
(2) 010466 012677 170704 MOV (6)+,@ASR 3/CONTENTS ARE IN SBDDAT. 
(2) 010472 005737 001126 TST ORE CS 
(1) 010476 023737 001124 001126 CMP SGDDAT .SBDDAT 3 /WAS ANOTHER 100KH2 PULSE GENERATED? 
1) 010504 001401 BEQ 5 :/NO = NEXT TEST. 


3 2 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 11 2 /WE SEEM TO HAVE aoe 
3/ANOTHER 100KHZ PULSE ON 


an 
~— 
ww 
Oo 
= 
So 
wn 
& 
_ 
R 
o 
= 
_ 


010510 


‘KWVTTA DISAGNOSTIC mal 
| Pi} 


16-DEC-8 


005077 


000004 
012737 
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170662 


001160 


170634 
170626 


170614 


001124 


001424 
001424 
170550 


170542 
001126 


001420 
001126 


3 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


5$: CLR 


PARRA AEAAAEAAAAEAA KEKE SKA AAAAATERARERAAEAAAAAAAEAAAEHAERENEE 


tS TEST 55 


SRERAAAEAEAEARAAEREAEKESAAAEAAAAAAARARAAAAARAEAAAARAAAAAAARAERAEREEE 


T8155: SCOPE 
MOV 


10$: MOV 
1$: BIS 


2$: MOV 


ERROR 


5 
16=DEC-82 5: 42 PAGE 78-3 
*TEST THE CLOCKS 100KHZ DIVIDER 


@ASR 


3/ONLY 99 MAINTENANCE 
:/OSC PULSES. 


3/CLEAR THE CSR. 


*TEST THE CLOCK’S 10KHZ DIVIDER 


#5, STIMES 

@ASR 

@ABR 

#1111 OASR 
1!30,aASR 

#-1000.,RO 

#B81T10,aASR 

RO 

1$ 

#1, $GDDAT 

a@aSR,-(6) 

(6) mit 

#1797 


MP3 
i $TMP 


#B1T9,@ASR 
@ABR, $BDDAT 


oe 
SGDDAT ,STMPO 
SGDDAT ,SBDDAT 
3$ 


11 


3300 5 ITERATIONS 
3/CLEAR THE CSR. 


CLEAR THE PRESET BUFFER. 


3/ 
;/DISABLE THE IN 


NTERNAL OSC. 
;/ENABLE CLOCK, RATE: 10KHZ 


3/SET TO GENERATE 1000 OSC PULSES. 


A oe aod 14 ONE OSC PULSE. 
/DONE 1000 OSC PULSES? 
$7NO = DO ANOTHER ONE. 


3/SET FOR ERROR TYPEOUT - IF ANY. 


3/SAVE CSR 
3/GET CSR. 

3/SAVE RATE BITS 

THIS MUST BE DONE IN 

$7ORDER TO XFERR — 

TO BUFFER ON 
/GENERATE ON ST2 PUL 
<TPREV THE PRESET BUFFER, 


PREVIOUS COUNT 
CONTENTS ARE IN SBDDAT. 


:/DID CLOCK ADVANCE ONCE? 


3/YES = NEXT TEST. 
2s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


37ERROR ON CLOCK10KHZ 
3/NOT GENERATED WHEN 1 
3/0SC PULSES GENERATED. 


wy MODE 2. NO RATE DISABLE 


Ec 
TSTRPO USED IN ERROR TYPEOUT. 


SE 


INTERNAL OSC 


SEQ 0055 


-—----—_- -_——- -- — -— ee 


E 5 
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CNKWAA.P11 16=DEC 15:38 TS *TEST THE CLOCK’S 10KHZ DIVIDER 


\ 
3s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSESSSSSSSSSSS 
010672 000443 BR 5$ 


SEQ 0056 


| <@)D \ 
/ 1) 010674 012700 001747 3$: MOV #999. .RO :/GET THE NUMBER OF MORE OSC PULSES 
| 38 3/TO BE GENERATED. 
(1) 010700 052777 002000 170470 4$: BIS #B1T10,aASR 7 /GENERATE ANOTHER OSC PULSE. 
| 1) 010706 005 DEC RO :/WHAT WE WANT TO CHECK 
| (1) 010710 00137 BNE 4$ :/10KH2 PULSE ON 999 OSC PULSES. 
(1) 
(2) 010712 017746 170460 MOV @ASR,-(6) :/SAVE CSR 
(2) 010716 011637 00142 MOV (6) Srp :/GET CSR. 
(2) 010722 042737 177707 001424 BIC #177707,$TMP3 =: /SAVE RATE BITS. 
(2) 010730 052737 004005 001424 BIS aBITi1 bite 'BIT0° SIN s/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
(2) 010736 013777 001424 170432 MOV STMP3,@ASR L 
(2) :/THIS mist BE Sone IN 
(2) :/ORDER TO XFERR COUNTER 
(2) :/TO BUFFER ON ST2. 
(2) 010744 052777 001000 170424 BIS #B1T9, aASR :/GENERATE ON ST2 PULSE 
(3) 010752 017737 170422 001126 MOV @ABR, SBDDAT 3/R READ THE PRESET BUFFER, 
(2) 010760 012677 170412 MOV (6)+,@ASR :7 CONTENTS ARE IN SBDDAT. 
(2) 010764 005737 001126 TST AT s/RESTORE CSR 
(1) 010770 023737 001124 001126 CMP SGDDAT,SBDDAT :/WAS ANOTHER 10KHZ PULSE GENERATED? 
a) 010776 001401 BEQ 5$ :/NO = NEXT TEST. 
rSSSSSSSSSSSSSSSSSSSSSESES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 011000 104011 ERROR 11 :/WE SEEM TO HAVE GENERATED 
(1) :/ANOTHER 10KHZ PULSE ON 
(1) :/ONLY 999 MAINTENANCE 
Hh :/0SC PULSES. 
1 SSSSSSSSSSSSSSSSSSSESEES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
a) 011002 005077 170370 S$: CLR @AsR :/CLEAR THE CSR. 
6870 
6871 
a) 
(5) fF TTAAAA KEKE AAAAARAAEAA SEEKS EEA TAAEAAAAAAEAAAAAERAAAERERAEEREEEEE 
(4) *STEST 56 *TEST THE CLOCK'S 1KHZ DIVIDER 
(6) Nolte ONE Tete tr hae. aaa ee nee eee ae 
(3) 011006 000004 18156: | SCOPE 
(2) 011010 012737 000005 001160 MOV #5, STIMES 72:D0 5 ITERATIONS 
(1) 011016 005077 170354 CLR @ASR :/CLEAR THE CSR. 
(1) 011022 005077 170352 CLR @ABR :/CLEAR THE PRESET BUFFER. 
(1) 011026 052777 004000 170342 BIS #81711. aASR /DISABLE THE INTERNAL OSC. 
(1) 011034 052777 000041 170334 BIS #1!40,aASR ?7ENABLE CLOCK, RATE: beikne 
(1) 
(1) 011042 012700 154360 10$: MOV #-10000. ,RO 7/SET TO GENERATE 10000 OSC PULSES. 





FS 
(KWV11A DISAGNOSTIC = mmm MACY11 30(1046) 16=DEC@82_ 15:42 PAGE 78-5 
| CNKWAA.P11 16=DEC 15:38 156 *TEST THE CLOCK’S 1KHZ DIVIDER SEQ 0057 


j 
/ oa 
(1) 011046 052777 002000 170322 18: BIS #B1T10,aASR :/GENERATE ONE NE OSC PULSE. 
| 1) 011054 005 INC RO 3/ 10000 OSC PULSES? 
| (1) 011056 00137 BNE 1$ / fo = 00 ANOTHER ONE. 
a) 
| (1) 011060 012737 000001 001124 2%: MOV #1, $GDDAT :/SET FOR ERROR TYPEOUT = IF ANY. 
/ (2) 011066 017746 170304 MOV aAsr =(6) :/SAV CSR 
(2) 011072 011637 001424 MOV ) $TMP3 :/GET CSR. 
(2) 011076 042737 177707 001424 BIC £93555 STMP3 = /SAVE RATE BITS. 
(2) 011106 052737 004005 001424 BIS oBTi1 (Bite B1T0:$1AP s/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
(2) 011112 013777 001424 170256 MOV $TMP3,aASR 3/ R. 
| 2) THIS MUST BE DONE IN 
(2) :7ORDER TO XFERR COUNTER 
(2) /TO BUFFER ON ST2. 
(2) 011120 052777 001000 170250 BIS #B1T9,@ASR ?7GENERATE ON ST2 PULSE 
(2) 011126 017737 170246 001126 MOV @ABR, $BDDAT 3/R EAD THE PRESET BUFFER, 
/ @ EVIOUS COUNTER 
(2) 011134 012677 170236 MO (6)+,a@ASR :/CONTENTS ARE IN SBDDAT. 
(2) 011140 005737 001126 TST STORE 
(1 011144 013737 901124 001420 MOV SGDDAT, STMPO TSRPO USED IN ERROR TYPEOUT. 
(1 011152 023737 001124 001126 cMP SGDDAT,SBDDAT ;/DID CLOCK ADVANCE ONCE? 
1) 011160 001402 BEQ 3$ :/YES = NEXT TEST. 
3 SSSSSSSSSSSSSSSSSESESSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 011162 104011 ERROR 11 :/ERROR ON CLOCK1KH2Z PUL SE 
(1) [/NOT GENERATED WHEN 10000 
oh :/0SC PULSES GENERATED. 
s SSSSSSSSSSSSSSSSESSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 011164 000443 BR 5$ 
(1) 011166 012700 023417 3$: MOV #9999. .RO :/GET THE NUMBER OF MORE OSC PULSES 
(1) :/TO BE GENERATED. 
(1) 011172 052777 002000 170176 4$: BIS #B1T10,aASR ; /GENERATE ANOTHER OSC PULSE. 
(1) 011200 005300 DEC RO “/WHAT WE WANT TO CHECK 
(1) 011202 001373 BNE 4$ /1KH2 PULSE ON 9999 OSC PULSES. 
(1) 
(2) 011204 017746 170166 MOV aase -(6) ;/SAVE CSR 
(2) 011210 011637 001424 MOV ) STMP3 T CSR. 
(2) 011214 042737 177707 001424 BIC $93575 Fi STMP3_/SAVE RATE BITS. 
(2) 011222 052737 004005 001424 BIS wai Ti1 bite e110" STMP3 ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
(2) 011230 013777 001424 170140 MOV STHPS aASR * ; (LOAD R. 
(2) : /ORDER TO KFERR OUNTER 
(2) 011236 052777 001000 170132 BIS #B1T9,aASR 3 /GENERATE ON ST2 PULSE 
(2) 011244 017737 170130 001126 MOV @ABR, $BDDAT / READ ine PRESET BUFFER, 
(2) 011252 012677 170120 MOV (6), a@ASR ?/CONTENTS ARE IN SBDDAT. 
(2) 011256 005737 001126 TST SBDDAT /RESTORE CSR 


| 
| 
| 
| 
| 
| 
| 
| 
| 


KWVT1A DISAGNOSTIC MAINDECST1=CNKUA-A 9 
CNKWAA.P11 | 16=DEC-82 15:38 
(1) 011262 023737 001124 001126 
(1) 011270 001401 
(2) 
(1) 011272 106011 
(1) 
(1) 
(1) 
(2) 
(1) 011274 005077 170076 
6872 
(1) 
(1) 
(5) 
(4) 
(4) 
(3) 011300 000004 
| (2) 011302 012737 000005 001160 
| 1) 011310 005077 170062 
/ (4) 011314 005077 170060 
(1) 011320 052777 004000 170050 
| (2) 011326 052777 000051 170042 
oH 011334 012701 000012 
| (1) 011340 012700 154360 
(1) 011344 052777 002000 170024 
(1) 011352 905200 
|G) 011354 00137 
| ¢1) 011356 005301 
| (1) 011360 001367 
| 1) 911 012737 1 001124 
(2) 011370 017746 170002 
(2) 011376 011637 001424 
(3) 011400 042737 177707 001426 
(2) 011406 052737 004005 001424 
(2) 0116146 01 777 001424 1677 
8 
| ¢3)) 011422 952777 1000 167746 
| 011650 1 737 167744 001126 
2) 011436 012677 167734 
| )- 019642 005737 901126 
(1) 011446 013737 001124 001420 


G5 
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756 *TEST THE CLOCK'S 1KHZ DIVIDER 


CMP SGDDAT ,SBDDAT 3/WAS ANOTHER 1KHZ PULSE GENERATED? 


BEQ 5$ 3/NO = NEXT TEST. 
3 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 11 3/WE SEEM TO HAVE GENERATED 
3/ANOT HER 1KHZ PULSE ON 
Y 9999. MAINTENANCE 
3/0SC PULSES. 
3  SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
5$: CLR @ASR 3/CLEAR THE CSR. 
ITI 
TEST 57 *TEST THE CLOCK*S 100HZ DIVIDER 
peeeeeeeeeneeeeneeeereeeeeeeeeeeedrenegeereneeeeenereeerenereere 
18157: SCOPE 
MOV #5 .STIMES 33:D0 5 ITERATIONS 
CLR @ASR 3/CLEAR THE C 
CLR @ABR 3/CLEAR THE PRESET BUFFER. 
BIS #81T11,aASR :/DISABLE THE INTERNAL OSC. 
BIS #1!50,aASR 3/ENABLE CLOCK, RATE: 100HZ 
MOV #10. ,R1 
10$: MOV #-10000. ,RO 3/SET TO GENERATE 10000 OSC PULSES. 
1$: BIS #81T10,aASR s/eenemare ONE OSC PULSE. 
INC RO 3/DONE 10000 OSC PULSES? 
BNE 1$ 3/NO = DO ANOTHER ONE. 
DEC R1 
108 
2s: MOV #7 ,SGDDAT 3/SET re ERROR TYPEOUT = IF ANY. 
MOV 7398 -(6) 3/SAV E CSR 


MO ) $TMP3 :/GET CSR. 
BIC $93570 ” STMP3 3 /SAVE RATE BITS. 
Bis Sines ann TO°* ~STMP3 z/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 


STMPS L 
THIS MUST BE DONE IN 
:7ORDER TO XFERR COUNTER 
;/TO BUFFER AY T2. 
BIS #B81T9,aASR 2 7GENERATE ON ST2 PUL 
MOV @ABR , SBDDAT 3/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
(6)+,@ASR 3/CONTENTS ARE IN SBDDAT. 


3 TORE 
MOV SGDDAT ,STMPO 3/STMPO USED IN ERROR TYPEOUT. 


SEQ 0058 


45 
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CNKWAA.P11 16-0 eTEST THE CLOCK'S 100H2Z2 DIVIDER SEQ 0059 
() 011454 023737 001124 001126 CMP SGDDAT,SBDDAT  ;/DID CLOCK ADVANCE ONCE? 
Ct 011462 001402 BEQ 66$ :/YES = NEXT TEST 
s SSSSSSSSSSSSSSSSSSSSSEES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSESSSSSSS 
(1) 011464 104011 ERROR 11 :/ERROR ON CLOCK 100H2 PULSE 
(1) :/NOT GENERATED WHEN 1 
a :/0SC PULSES GENERATED. 
s SSSSSSSSSSSSSSSSSSSESSEES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 011466 000447 BR 5$ 
(1) 011470 012701 000012 68: MOV #10.,R1 
(1) 011474 012700 023417 $: MOV #9999. RO :/GET THE NUMBER OF MORE OSC PULSES 
a 3/TO BE GENERATED. 
(1) 011500 052777 002000 167670 4$: BIS #B1T10,aASR ;/GENERATE UANOTHER osc _PULse. 
(1) 011506 005 DEC RO :/WHAT WE WAN 
(1) 011510 001373 BNE 4$ :/100H2Z PULSE "on 00599 Ose PULSES. 
(1) 011512 1 DEC R1 
(1) 011514 001367 BNE 3$ 
(1) 
(2) 011516 017746 167654 MOV aasr -(6) i / SAVE CSR 
(2) 011522 011637 00142 MOV ),$T mS 
(2) 011526 042737 177707 001424 BIC 5974707 MP3 sreay RATE BITS 
(3) 011534 052737 904005 001424 BIS gettin 6tte:6110, STMPS ;/SET MODE 2, NO RATE,DISABLE INTERNAL OS¢ 
(2) 011542 013777 001424 167626 MOV STMP3,a CSR. 
(2) :/THIS MUST BE DONE IN 
(2) :/ORDER TO XFERR COUNTER 
(2) :/TO BUFFER ON ST2. 
(2) 011550 052777 001000 167620 BIS #8119 @ASR :/GENERATE ON ST2 PULSE 
(2) 011556 017737 167616 001126 MOV R,$BDDAT :/READ THE PRESET BUFFER, 
(2) :/PREVIOUS COUNTER 
(2) 017564 012677 167606 MOV (6)+,@ASR :/CONTENTS ARE IN SBDDAT. 
(2) 011570 005737 001126 TST SBDDAT s/RESTORE CSR 
(1) 011576 023737 001124 001126 CMP SGDDAT,SBDDAT :/WAS ANOTHER 1OOHZ PULSE GENERATED? 
¢3) 011602 001401 BEQ 5$ 3/NO = NEXT TEST 


(1) 011604 104011 ERROR 11 3/WE os AB Aa He o_o. 
(1) sf ANOTHE E ON 
(1) 3/ONLY 9999 MAINT CHANCE 
; 3} 3/0SC PULSES. 
zs SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSESSSSSS 


3s SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
| 011606 005077 167564 5$: CLR @ASR 3/CLEAR THE CSR. 
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“DEC TS 


CNKWAA.P11 *TEST THE CLOCK'S 100HZ DIVIDER SEQ 0060 
pr 144 FPA S SSAA AS HAASH SAAS HSK S SEEKS AEEEEAEAAEHEEAEHEHAEREAEEEEEEE 
(3) tS TEST 60° “TEST THE CLOCK'S MODE 2 OPERATION 
(4) SIN iHIS TEST WE°LL CHECK MODE 2 OPERATION 
(4) [*MODE 2: EXTERNAL EVENTS TIMING MODE 
(4) :*SETTING THE GO BIT CAUSES THE COUNTER TO BEGIN COUNTING FROM 
(4) [*ZERO AND TO FREE-RUN UNT BIT IS WRITTEN 
) [TO A ZERO THE COUNTER WILL CONTI OUNTI ER 
(4) S*OVERFLOW. AN EXTERNAL PULSE FROM SCHMITZ TRIGGER 2 
(4) [*(WHEN ST2 GO ENABLE IS A 0") CAUSES DAT 
(4) S*® TRANSFER FROM THE COUNTER TO THE BUPFER/PRESET REG. 
(4) Z*WHILE THE COUNTER CONTINUES TO RUN. 
(4) ‘sT0 TEST THIS MODE, WE°LL DISABLE THE INTERNAL OSC AND USE 
(4) ; eMAINTENANCE OSC PULSES AS WELL AS A MAINTENANCE 
‘3 ee entiventbaccunetianiiianennettteniniinaddebetmentstaieedaieteeninenhenl 
(2) 011612 000004 160: SCOPE 
sy 011614 012737 000020 001160 MOV #20, STIMES 3:00 20 ITERATIONS 
689% 011622 005077 167550 CLR @ASR ICLEAR THE CSR. 
6897 011626 005077 167546 CLR @ABR [CLEAR THE PRESET REG. 
6898 011632 012777 004015 167536 MOV #004015,aASR § :START CLOCK. 
6900 911640 012700 177754 1$: MCV #-20. RO zSET TO GIVE 20 MAINTENANCE OSC. 
6901 011644 52777 002000 167524 2$: Bis #B1T10,aaSR :GENERATE A MAINTENANCE OSC. 
6908 011654 BNE z1f NOT DONE 20 TIMES, LOOP. 
6905 011656 052777 001 167512 3S: BIS #B1T9, aAsr sHERE*S THE BIGGIE! AN ST2 HAS BEEN GENERATED 
6906 011664 012737 001124 MOV #2,$GDDAT [THE PRESET BUFFER SHOULD BE 2. 
6907 011672 017737 167502 0011 MOV @ABR, SBDDAT [READ THE PRESET BUFFER. 
6908 011700 023737 001126 001124 cmp SBDDAT , SGDDAT 3D1D A COUNTER TO PRESET BUFFER UCCUR? 
6909 011706 001402 BEO 4$ SYES = NEXT SUBTEST. 
1 SSSSSSSSSSSSSSSSSSSSEEES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6911 011710 104005 ERROR 5 7A COUNTER TO PRESET BUFFER DID NOT 
or [HAPPEN PROPERLY. 
[SSSSSSSSSSSSSSSSSSESSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6914 011712 000436 BR 5§ 
6915 
6916 011714 68: 
(1) 011714 017746 1674656 MOV @aSR,- {6} z/SAVE C 
(1) 011720 0116 901404 MOV (6) 2 ,SHP3 3/GET CSR. 
(1) 011726 042737 177707 001424 BIC a7? S/SAVE RATE BITS. 
(1) 011732 052737 005 001424 BIS apiti 6 11e:6110,81 STMPS ;/SET MODE 2, NO RATE.DISABLE INTERNAL OSC 
(1) 011740 013777 001424 1674 MOV STMP3,aA [/LOAD CSR. 
a) :/THIS MUST BE DONE I 
(1) :/ORDER TO XFERR COUNTER 
(1) :/TO BUFFE Pe ON ST2, 





[ee 


012004 


012104 
012106 


“eam Ic mpeges 1=CNKWA=A 


oer? 001000 167422 
017737 167420 1126 
012677 167819 

0 


005737 001126 
tHe 001124 001126 


000004 

012737 000020 001160 
005077 167356 

005077 167354 

012777 004017 167344 


12 177754 

052777 002000 167332 

5200 
001373 
052777 001000 167320 
012737 900008 001124 
017737 16731C 001126 
to 4 001126 001124 
104005 
000445 


005037 001124 
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T60 *TEST THE CLOCK’S MODE 2 OPERATION 


BIS #B1T9,aASR :/GENERATE ON ST2 PULSE 
MOV @ABR, $BDDAT :/READ THE PRESET BUFFER, 
:/PREVIOUS COUNTE 
MOV (6)+,@ASR CONTENTS ARE IN SBDDAT. 
TST SBDDAT S/RESTORE C 
CMP SGDDAT.SBDDAT :WAS THE COUNTER ACCIDENTLY ZEROED? 
BEQ S$ [NO = NEXT TEST 
; :SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR § :THE COUNT REGISTER SHOULD NOT 


SHAVE BEEN EFFECTED BY THE ST2 
MODE 2 


2 SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSESSS 
5$: 


FTAA ASSES AAAS SA EKA AS SEEK AEE AAAAAAHAAHAEHAEHAEEAAEAEKEEAAAERE 


:ATEST 61 *TEST THE CLOCK’S MODE 3 OPERATION 


ieIN THIS TEST WE*LL CHECK MODE 3 OPERATION 
7*MODE 3 IS JUST LIKE MODE 3. EXCEPT THAT THE COUNT 
:*REG IS ZEROED AFTER AN ST 


$3 sepndeubestehneuniadbheuehelimmasnsmmeitnenetadinennannneiniie 


TST61: SCOPE 


MOV #20,STIMES 3:D0 20 ITERATIONS 
CLR @ASR ZCLEAR THE CSR. 
CLR @ABR [CLEAR THE BUFFER REG. 
MOV #4017, a@ASR SSTART CLOCK. 

1$: MOV #-20. RO :SET TO GIVE 20 MAINTENANCE OSC. 

2$: els #BiTi0,aase [GENERATE A MAINTENANCE OSC. 
BNE 2$ z1F NOT DONE 20 TIMES, LOOP. 

38: BIS #B81T9, aASR sHERE*S THE BIGGIE! AN ST2 HAS BEEN GENERATED 
MOV #2, $GDDAT STHE PRESET BUFFER SHOULD BE 2. 
MOV @ABR,SBDDAT [READ THE PRESET BUFFE 
CMP SBDDAT,$GDDAT :DID A COUNTER TO Preset BUFFER OCCUR? 
BEQ 4$ [YES = NEXT SUBTEST 

1 ESSSSSSSSSSSSSSSSSSSESES>>> ERROR <<<SSSSSSSSSSCSSSSSSSSSSSSSSSSSSSS 
ERROR 5 ZA COUNTER TO PRESET BUFFER DID NOT 

[HAPPEN PROPERLY. 

1 SSSSSSSSSSSSSSSSSESSEESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
BR TST62 $3 

4$: CLR SGDDAT ZEXPECT ZERO BACK FROM COUNT REG. 


SEQ 0061 


-—— -—_ ee - ee ee oe ~ 


5 
KWVTTA DISAGNOSTIC Meg I Om MACY11 met iee 16=DEC~82 NWS: 42 PAGE 79-2 
CNKWAA.P11 16=-DEC T61 TEST THE CLOCK'S MODE 3 OPERATION SEQ 0062 


6957 gr2i12 017746 16 167260 MOV @ASR,-(6) :/SAVE CSR 
1) 012116 011657 00 MOV (6) $tnp :/GET CSR. 
(1) 012122 0427 001424 BIC #177707,$TMP3 —: /SAVE RATE BITS. 
/ 1) 012130 «052737 004005 001424 BIS matt 6112'6110, STMP3 ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
| (1) 012136 «013777 «001424 «167232 MOV STMP3,aA :/LOAD CSR. 
enh THIS MUST BE DONE IN 
| @) £/ORDER TO XFERR COUNTER 
i; @ O BUFFER ON 
' (1) 012144 052777 001000 167224 BIS #B1T9,aASR :/GENERATE ON ST2 PULSE 
(1 012152 017737 167222 001126 MOV @ABR, $BDDAT z/READ THE PRESET | BUFFER, 
i 
/ (1) 012160 «012677 «167212 MOV (6)+,@ASR 3/ CONTENTS ARE IN SBDDAT. 
| (1) 012164 005737 001126 TST SBDDAT /RESTORE CSR 
6998 012170 001402 BEQ 58 t1F SO - NEXT TEST. 
| ss SSSSSSSSSSSSSSSSSSESSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
| 6960 012172 104005 ERROR 5 sTHE CLOCK FORGOT TO ZERO THE COUNT 
6961 :REG. AFTER AN ST2 OCCURRED ON 
6962 A MODE 3 COUNT. 
r SSSSSSSSSSSSSSSSSSSSSESS>>> ERFOR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6964 012176 000411 BR TST62 3: 
6965 012176 S$: 
6966 012176 005077 167174 CLR @ASR zNOW TRY CLEARING THE CSR. 
6967 012202 017737 167170 001126 MOV @ASR,SBDDAT [READ THE CSR = DID IT CLEAR? 
6968 012210 001403 BEQ TST62 33 
6969 012212 005037 001124 CLR SGDDAT [NO = RECORD $/B. 
: SSSSSSSSSSSSSSSSSSSSESES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6971 012216 104002 ERROR 2 :CSR FAILED TO CLEAR 
r SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
err fF SERRA AAAAAEAEAE EEA AAAS THERA AEAAAEEEAAEEEEEEEEEEEEEEEEEEEE 
(3) TEST 62 *IF ENARLED,CHECK THRESHOLD ST1 FROM TESTOR 
(3) fF SRAAAAAEAAAEAAAA EE EAE REA AEAETEEAEEAEEEEEEAEEAEEEEAEEEEEEREREEERE 
(2) 012220 000004 18162: SCOPE 
6975 
6976 012222 012737 000002 001160 MOV #2, STIMES 3:00 2 ITERATIONS. 
6977 012230 005737 001440 TST EXS [OPERATING IN TESTOR MODE? 
6978 012234 001002 BNE 4$ SYES DO THIS TEST. 
6979 012236 000137 013056 JMP ENDP ZNO-END PASS 
6980 012242 4$: 
6982 012242 005077 167130 CLR @ASR ZYES-CLEAR CSR. 
6983 012246 012777 177775 167124 MOV #3, aABR :SET TO COUNT THREE TIMES. 
012254 0127 900061 167114 MOV #61_aASR [SET RATE: ST1,MODE 1 GO. 
6985 012262 104401 012270 TYPE 638 3 TYPE ASC 1's STR RING 
(1) 012266 0004 BR T OVER THE ASCIZ 
(1) 2:65$: .ASCIZ _, 817 THRESHOLD POT FULLY COUNTERCLOCKWIZE..#<7> 


(1) 012354 64$: 


-_——-——— —- a i ete - ——_- ao o—o - a a 
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‘CNKWAA.P11 —«- 16=DEC=82 15:38 T62 F ENABLED,CHECK THRESHOLD S$T1 FROM TESTOR SEQ 0063 
6986 012354 004737 013740 JSR PC ANYKEY ; TYPE LAs! MESSAGE AND WAIT FOR OPERATER. 
_ 6987 012360 012737 177775 001124 MOV 80s #=3,$G DON'T EXPECT COUNT TO CHANGE. 
6988 01 17746 167004 MOV aase sopont /SAV CSR 
1) 01237 1163 001424 MOV (6) ) -STHPS :/GET CSR 
(1) 012376 042737 177707 001424 BIC #177707,$TMP3 =: /SAVE RATE BITS. 
| (1) 012404 052737 004005 001424 BIS eB TTT bite B1TO™ STMP3 ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
| (1) 012612 «013777 001424 + 166756 MOV $T SonPs.a ASR :/ ® 
; @ :/THIS MUST BE DONE IN 
(1) 3 / ORDER TO XFERR COUNTER 
(1) O BUFFER ON 
(1) 012420 052777 001000 166750 BIS #B1T9,BASR S/GENERATE ON SI2 PULSE 
| GC 012626 017737 166746 001126 MOV @ABR, $BDDA JREAD THE PRESET BUFFER, 
| @) PREVIOUS COUNTER 
(1) 012434 012677 166736 MOV (6)+,a@ASR CONTENTS ARE IN SBDDAT. 
(1) 012440 005737 001126 TST DDAT RESTORE CSR 
6989 012444 001002 BNE 2s z1F NON-ZERO, WERE OK. 

: SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
$991 012446 104002 ERROR 2 : COUNTERCLOCKWIZE THRESHOLD SETTING 
639? :OF ST1 SHOULD HAVE INHIBITED 
6993 :ST1 FROM CAUSEING CLOCK TO COUNT. 

1 SSSSSSSSSSSSSSSSSSESSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6995 012450 000463 BR TST63 3: 

699% 
6997 01245 2$: 
6998 012452 104401 012460 TYPE 67$ i: TYPE ASCIZ STRING 
(1) 012656 000425 BR 66$ T OVER THE ASCIZ 
a1) iene 33678: sASCIZ <200><7><7>#SET ag fF THRESHOLD POT FULLY CLOCKWIZE# 
6999 012532 004737 013740 3$: JSR PC, ANYKEY :TYPE LAST MESS. AND WAIT FOR OPERATOR. 
7000 012536 017746 166634 MOV @ASR,-(6) :/SAVE CSR 
(1) 012542 011637 001424 MOV (6) STP 3/GET CSR. 
(1) 012546 042737 177707 001424 BIC #177707,$TMP3 3 /SAVE RATE BITS. 
(1) 012554 052737 004005 001424 BIS aBITI1 (BITetBITO" STMP3 z/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
(1) 012562 013777 001424 166606 MOV STMP3,aASR /LOAD CSR. 
(1) :/THIS miST BE DONE IN 
(1) :/ORDER TO XFERR COUNTER 
(1) :/TO BUFFER ON 
(1) 012570 052777 001000 166600 BIS #B1T9 aAsR :/GENERATE ON ST2 PULSE 
(1) 012576 017737 166576 001126 MOV @ABR, $BDDA :/READ THE PRESET BUFFER, 
(1) :/PREVIOUS COUNTER 
(1) 012604 012677 166566 MOV (6)+,a@ASR 3 /CONTENTS ARE IN SBDDAT. 
(1) 012610 005737 001126 TST SBDDAT :/RESTORE CSR 
444) 012614 001001 BNE TST63 33 

7 SSSSSSSSSSSSSSSSSSEESSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
7003 012616 104002 ERROR 2 ZCLOCKWIZE THRESHOLD SETTING OF 
7004 [S11 SHOULD HAVE INHIBITED CLOCK 
7005 [FROM COUNTING. 


2 2 SSSSSSSSSSSSSSSSSSSSESES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 








= 
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‘KWV1TA DISAGNOSTIC MA NDEC=11~CNKWA~A MACY11 30(1046) 16-DEC-82 15:42 PAGE 79-4 
CNKWAA.PT1 16=DEC=82 15:38 T *]F ENABLED,CHECK THRESHOLD ST1 FROM TESTOR SEQ 0064 
dd FERRE AEA EAAAAEA AEE E EEE EEA AEEEEEAAEEEEEEEREEAEEEEEAEREREE 
| tSTEST 63 *I1F ENABLED, CHECK S$T1,ST2 IN FROM TESTOR 
(3) bd eee eeeeeeeeeeeeeeeeeeeeeeeeeeeaaeaeaaeeeaeeeeaneeeeeeeeeeerere 
2) 012620 000004 T5163: SCOPE 
| i) 012622 012737 000002 001160 MOV #2,STIMES ::D0 2 ITERATIONS 
7010 012630 005737 001440 TST EXS ZOPERATING IN TESTOR MODE? 
7014 012634 001510 BEQ ENDP SNO-EXIT THIS TEST. 
rig 012636 005077 166534 CLR @ASR ZCLEAR THE CSR 
7014 012642 012777 177775 166530 MOV #-3.QABR :SET TO COUNT THREE TIMES 
7015 012650 012777 000061 166520 MOV :SET RATE:ST1, MODE1, 
7016 012656 104401 012664 TYPE ce ErTYPE:ASEIZ STRING 
(1) 012662 000433 BR 64$ “GET OVER THE ASCIZ 
(1 bowen i958: "ASCIZ <200><7><7>#SET $1 THRESHOLD POT IN THE MIDDLE OF ITS RANGE.# 
7017 012752 004737 013740 a PC, ANYKEY :TYPE LAST MESS WAITE FOR OPERATOR. 
7018 012756 005037 001124 CLR SGDDAT :EXPECT COUNTER TO BE CLEAR 
7019 017746 166410 MOV @ASR,-(6) :/SAVE CSR 
(1) 012766 011637 001424 MOV (6) ,STMP3 :/GET CSR. 
(1) 012772 042737 177707 001424 BIC #177707,$TMP3 =: /SAVE RATE BITS. 
(1) 052737 004005 001424 BIS #B1T11!BIT2!BITO.$TMP3 ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
(1) 013006 013777 001424 166362 MOV STMP3,aASR + /LOAD 
(1) :/THIS MUST BE SONE IN 
(1) 3 /ORDER TO XFERR COUNTER 
a) =/TO BUFFER ON 
(1) 013014 052777 001000 166354 BIS #BIT9,@ASR :/GENERATE ON ST 3 PULSE 
(1) 013022 017737 166352 001126 MOV @ABR, SBDDAT :/READ THE PRESET BUFFER, 
(1) :/PREVIOUS COUNTER 
(1) 013030 012677 166342 MOV (6)+,@ASR :/CONTENTS ARE IN SBDDAT. 
(1) 013034 005737 001126 TST SBDDAT :/RESTORE CSR 
7020 Z0F NON-ZERO = REPORT ERROR 
7021 013040 001402 BEQ 2$ 
1 SSSSSSSSSSSSSSSSSSSESEES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
7023 013042 104002 ERROR 2 sINCORRECT # OF ST1°S 
20% _ SRECEIVED BY CLOCK 
1 SSSSSSSSSSSSSSSSSSSESSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
7026 013044 000404 BR ENDP 
7028 013046 2$: 
7029 013046 005777 166324 TST @ASR :DID ST2 FLG SET? 
7030 013052 100401 BMI ENDP 
 SSSSSSSSSSSSSSSSSSSSSEES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
7032 013054 104006 ERROR 6 7ST2 FLAG DID SET EVEN THOUGH 
7035 ‘SWITCH WAS TOGGLED. 


3 2 SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


OE Sir -- 
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KWVT1A DISAGNOSTIC « 5 ~~ Wem ores 30(1046) 16=-DEC-82 15:42 PAGE 79-5 
CNKWAA.P11 16=-DEC 15:38 T6 *]F ENABLED, CHECK S$T1,ST2 IN FROM TESTOR 
we 
7037 SNOW WE*LL DETERMINE IF WE ARE ALLOWED TO AUTO-SIZE. 
7038 sIF SO, WE'LL FIND OUT IF THERE ARE OTHER CLOCKS OUT THERE 
7039 3TO TEST. 
7040 3 
7041 
A 013056 000004 ENDP: SCOPE 
7044 
7045 013060 105737 001215 TST8 SENVM ;SEE IF APT WILL LET UP AUTO-SIZE. 
7046 013064 100537 I 2s 3NO - EXIT. 
ots 
7049 013066 023737 001434 001436 CMP MDEVCT, TSTCNT s TESTED MAX. UNITS? 
7050 013074 001507 BEQ 4$ sYES EXIT. 
7051 013076 006337 001426 ASL ROTATE sPOINT NEXT UNIT. 
igs 013102 005237 001434 INC MDEVCT 
7054 013106 062737 000004 001376 ADD #4 ,ASR ADD TO BASE ADDR. 
7055 013114 013746 000004 MOV ERRVEC ,-(6) ‘Save CONTENTS OF LOC 4. 
at] 013120 012737 013274 000004 MOV #1$, ERRVEC :SET UP IN CASE NO MORE CLOCKS. 
Ait 4 013126 005777 166244 TST @ASR sTIME OUT HERE IF NO MORE CLOCKS. 
7060 oF HERE, rte, SS CLOCK FOUND. 
Hel gun gum co i ol 
we? Olslee 053737 001426 001430 3e BIS ROTATE ,UTEST SYES=RECORD THIS UNIT. 
7065 013146 104401 013154 TYPE ,65$ sz TYPE ASCIZ STRING 
(1) 013152 000405 ae, UEHGET OVER THE ASCIZ 
(1) 3265$: .ASCIZ <15><12>"UNIT # 
(1) 013166 64$: 
7066 013166 013746 001204 MOV SDEVCT,-(SP) 33 SAVE SDEVCT FOR TYPEOUT 
(1) 013172 104402 TYPOC 3G0 TY Wiest aan oats DIGITS) 
7067 013174 104401 013202 TYPE 67$ 33 TYPE ASCIZ STRING 
(1) 013200 000406 BR $ e T OVER THE ASCIZ 
(1) 33:67$: .ASCIZ ‘°° COMPLETED 
(1) 013216 6$: 
7068 013216 005237 001204 INC SDEVCT 
7069 013222 104401 013230 TYPE 09S 33 TYPE ASCIZ STRING 
(1) 013226 000410 BR 68$ 7..GET OVER THE ASCIZ 
(1) 3:69$: .ASCIZ ‘°* TESTING UNIT # 
(1) 013250 68$: 
7070 013250 013746 001204 MOV SDEVCT,-(SP) 33 SAVE SDEVCT FOR TYPEOUT 
(1) 013254 104402 TYPOC 3GO TYPE--OCTAL ASCIICALL DIGITS) 
7071 013256 012637 000004 MOV (6)+, ERRVEC *RESETOR — LOC 
7072 013262 062737 000010 001402 ADD #10,VECT1 3UPD ATE VECTOR ADDR. 
ae 013270 000137 002334 JMP LOOP sTEST NEW UNIT. 
7075 013274 1$: 
(1) €i3274 706 000004 ADD #4 ,SP 3/ADD #4 TO STACK POINTER. 
7076 013300 012637 000004 MOV (6)+ ERRVEC 3RESTORE LOC 4 
7977 =©013304 022737 000000 001204 CMP #0, $DEVCT sTESTED ONLY ONE UNIT? 
7.°B 013312 0014 BEQ 2$ YES = NO NEED FOR TYPEOUT. 


SEQ 0065 





KWV11A DISAGNOSTIC MAINDECS11=CNKWA-A 
CNKWAA.P11 - 16=DEC=82 15:38 
7079 
7080 13314 
7081 013314 104401 013322 
(1) 13320 000405 
(1) 013334 
7082 01 013746 001204 
(1) 1 9 10440 
7083 013242 104401 013350 
(1) 013346 000406 
(1) 013364 
7084 
7085 013 013737 001 50 00137 
7086 13572 013737 001244 00140 
7087 0134 0137 7 001204 00144 
7ORS O13c%5 093937 900008 
7089 013412 012737 001204 
7091 13%4 005037 Dek 
7092 013424 012737 1 001426 


Vv 


EERE EE AE AE AT EE A A TE ce a 
ESR 


WWWWNWWWWNWANI WII PY OO ONY 
Se 
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100000 001202 


SO0O0S0 cCCOS COCOOCOOCCOCSCCO 
a nd ee a es ee a a) = =) 
Maan ua REREEREEEE RE RE 


FSENN SNSER SNSSERSSSESEON 


B. 6 
MACY11 et r+ 16=DEC=82 15:42 PAGE 79-6 
16 F ENABLED, CHECK ST1,ST2 IN FROM TESTOR 


4$: 
TYPE 421s zz TYPE ASCIZ STRING 
BR 208 giGET OVER THE ASCIZ 
picts eASCIZ <15><12>°UNIT # 
“MOV SDEVCT.=(SP) —  ;SAVE SDEVCT FOR TYPEOUT 
TYPOC :60 TY YPE==OCTAL ASCIICALL DIGITS) 
TYPE 73$ tSTYPE ASCI2 STRING 
BR 23 7:GET OVER THE ASCIZ 
-:73$: .ASCIZ '* COMPLETED " 
72$: 
28: MOV SBASE ASR 
MOV SveCTi .veCtt 
MOY EVCT,LCNT 
MOV »SDEVCT 
CLR MDEVCT :BEGIN TESTING 1ST UNIT. 
MOV #1, ROTATE :POINT TO IT. 


-SBTTL END OF PASS ROUTINE 


eCity) 
; SINCREMENT Hy’ PASS BS syrass) 

3*IF THERES A MONITOR GO T 

7*IF THERE ISN'T JUMP TO L 


SEOP: 
CLR STSTNM 33 ZERO THE TEST NUMBER 
CLR STIMES THE meee OF ITERATIONS 
INC SPASS i FINCREMENT THE PASS NUMBER 
BIC #100000,$PASS ;;DON'T ALLOW A NEG. NUMBER 
DEC (PC)+ : POOP? 

SEOPCT: .WORD 1 
BGT SDOAGN 77 YES 
MOV (PC) +, a(PC)+ sZRESTORE COUNTER 

SENDCT: .WORD 1 
SEOPCT 
TYPE 65$ 2 Type ASCIZ STRING 


BR $ sGET OVER THE ASCIZ 
65$: .ASCIZ <15><12>#ENDPASS # 


MOV SPASS,-(SP) 23SAVE SPASS FOR TYPEOUT 

TYPOC 760 TY YPE--OCTAL ASCIIC(ALL DIGITS) 

TYPE 678 iE TYPE ASCIZ STRING 

BR 6$ “GET OVER THE ASCI2Z 
i678: .ASCIZ # TOTAL ERRORS F 


MOV ERCNT,=(SP) ii SAVE ERCNT FOR TYPEOUT 

TYPOC 760 TYPE=-OCTAL ASCII CALL DIGITS) 
TYPE 698 t:TYPE ASCIZ STRING 

BR 68$ $:GET OVER THE ASCI2Z 


SEQ 0066 
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/KWVT1A DISAGNOSTIC MAINDEC=11~CNKWA~A MACY11 30(1046) 16=DEC-82 15:42 PAGE 79-7 
(CNKWAA.P11 = 16=DEC=82 15:38 END OF PASS ROUTINE SEQ 0067 
' 3) -:69$: .ASCIZ #: THERE ARE # 
| 3) 913604 é8s: 
| (3) 013604 013746 001442 MOV LCNT,=(SP) z:SAVE LCNT FOR TYPEOUT 
| (3) 913610 10440 TYPOC £:G0 TYPE*-OCTAL ASCIIC(ALL DIGITS) 
| (3) 013612 104401 013620 TYPE 71$ S:TYPE ASCIZ STRING 
| = €3),-—s 013616 +=000411 BR 70$ t:GET OVER THE ASCIZ 
; (3) -:71$: .ASCIZ # (OCTAL) UNITS.# 
i ¢3) 013643 70S: 
(3) 013642 104401 013650 TYPE 73$ riTYPE ASCIZ STRING 
(3) 013646 000415 23 *:GET OVER THE ASCIZ 
(3) -:73$: .ASCIZ <200>#THE GOOD UNITS (L TO R) # 
(3) 013702 72$: 
(3) 013702 013746 001430 MOV UTEST,-(SP) z;SAVE UTEST FOR TYPEOUT 
(3) 013706 104405 TYPBN £:G0 TYPE=-BINARY ASCII 
(1) 013710 013700 000042 $GET42: MOV a#42,R0 [:GET MONITOR ADDRESS 
(1) 013714 001405 BEQ SDOAGN ::BRANCH IF NO MONITOR 
(1) 013716 000005 RESET T:CLEAR THE WORL 
(1) 013720 004710 SENDAD: JSR PC, (RO) 7:60 T 
(1) 013722 000240 NOP 33 ROOM 
(1) 013724 000240 NOP 33 
(1) 013726 000240 NOP S:ACT11 
(1) 013730 SDOAGN: 
(1) 013730 000137 JMP aPC) 7 RETURN 
(1) 013732 002334 SRTNAD: .WORD LOOP 
(1) 
(1) 013734 377 377 000 SENULL: .BYTE -1,-1,0 ZNULL CHARACTER STRING 
(1) 013740 EVEN 
F108 
7109 [THIS ROUTINE TYPES LAST MESSAGE AND WAITS FOR AN OPERATOR 
7110 SRESPONCE. 
ate ; 
7113 013740 105777 165202 ANYKEY: TSTB = aSTKB ZCLEAR TTY READY FLAG. 
7114 013744 104401 013752 TYPE 65$ t;TYPE ASCIZ STRING 
(1) 013750 000430 BR $ GET OVER THE ASCIZ 
(1) 2:65$: .ASCIZ <200><7>#SWITCH ST1 3 TIMES, TYPE ANY KEY WHEN DONE..#<7> 
{2 014032 64$: 
7116 014032 105777 165106 1$: TSTB = @STKS ;WAIT FOR OPERATOR. 
7117 014036 100375 BPL $ 
7118 014040 105777 165102 TSTB = @STKB ZCLEAR TTY READY FLAG. 
119 014044 000207 RTS PC 


poo ee ae ree 
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[1/0 SIGNAL TEST #1 ST1 IN AND ST2 OUT IN AND OUT 
[SWITCH PACK $2 MUST BE SET UP AS FOLLOWS: 
SWITCH 1 = OFF 


$= ROT USED 


; THIS SELECTS TTL THRESHOLDS AND POSITIVE SLOPE FOR 
; SCHMITT TRIGGER 1. 


SPLEASE REMOVE ANY PREVIOUS JUMPER. 
;JUMPER THE FOLLOWING PINS TOGETHER: 


TO J1 = VV (STI-IN) 


: J1 = SS (ST2 OUT) 


[LOAD AND START AT LOCATION 210 

SEND soe} OCCUR IMMED ry AND ARE NOT REPORTED 
sERRORS ARE REPORTED AS:I Noite SrCULR LOGIC TEST AND 
ZTHEIR PRINTOUT MAY BE INNIBITE 


MOV la ct LOAD RETURN ADDRESS 


JMP 3PRIME Ly. PROGRAM VECTOR SPACE 
CKSWR ;CHECK THE ~~ 

CLR ood sCLEAR THE CSR 

CLR Ch EAR THE BUFFER REG. 


MOV eer RaAsR 
BIS #B1T9,aASR 


MOV 
BIS #BiT9,aAsR 


RATE ST1, MODE 0, GO. 
: GENERATE” A MAINTENANCE S12. 
[NOW SET {READ COUNT 


/KWVTTA 
/CNKWAA. 16=DEC-82 15:38 END OF PASS ROUTINE 
| 7141 
| 7162 
| 7143 ~SBTTL 
7144 
7145 
(1) 
qd) 
(1) 
qd) 
(1) 
qd) 
(1) 
qd) 
(1) 
a) 
(1) 
(1) 
(1) 
a) 
(1) 
qd) 
7146 
7147 
7148 
7149 
7150 
7151 
2132 
715 
7154 
7155 014046 012737 014060 001420 OITSTI: 
7156 014054 000137 001526 
7157 014060 104407 1OTST1: 
7158 014062 005077 165310 1$: 
7159 014066 005077 165306 
7160 014072 012777 000061 16 
7161 014100 052777 001000 165 
7162 014106 012777 000005 165262 
7163 014114 052777 001000 165254 
7164 014122 027727 165252 000001 
7165 014130 001753 
7166 014132 104000 
014134 000751 


3 FORCE Coy T => BUFFER REG. 
CMP @ABR #1 :D1D COUNT REG ADVANCE ONCE? 
BEQ 10TST1 LOOP. 
ERROR ST Our TO ST1 IN FAILED. 
BR 1oTSsT1 


SEQ 0068 


E 6 
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CNKWAA.P11 16=DEC=8 


71 
7171 
717 
717 
717% 
a) 
(1) 
(1) 
a) 
a) 
aM 
a) 
aM 
aM 
oD 
/ © 
; © 
OM 
a 
) 
(1) 
7175 
7176 
7177 
7178 
7179 
7180 
7181 
7182 
7183 
7184 014136 012737 014150 
7185 014144 000137 001526 
7186 014150 104407 
7187 014152 5077 193600 
7188 014156 012777 177777 
7189 014164 012777 000063 
7190 014172 052777 000400 
7191 014200 000240 
2192 14202 000240 
7193 014204 005777 165166 
7194 014210 100757 
7195 014212 104000 
7196 014214 000755 
' 


-SBTTL 


001420 OITST2: 


10TST2: 


O SIGNAL TEST #1 ST1 IN AND ST2 OUT IN AND OUT 


71/0 SIGNAL TEST #2 CLOCK OVFLOW OUT TEST. 

SSWITCH PACK $2 MUST BE SET UP AS FOLLOWS: 
: SWITCH 1 = OFF 
o = OFF 
rs = OFF 
e 4 = ON 
bs 5 = OFF 
: 6 - ON 
: = NOT USED 
: THIS SELECTS TTL THRESHOLDS AND POSITIVE SLOPE FOR 
> SCHMITT TRIGGER 2. 
[PLEASE REMOVE ANY PREVIOUS JUMPER. 
[JUMPER THE FOLLOWING PINS TOGETHER: 
J1 = RR (CLK OV) TO J1 = TT (ST2=IN) 

[LOAD AND START AT LOCATION 214. 

cEND PASSES OCCUR IMMEDIATELY AND ARE NOT REPORTED. 
TERRORS ARE REPORTED AS IN TH REGULAR LOGIC TEST AND 
‘THEIR PRINTOUT MAY BE INHIBITED. 


ov #l0Tst2, »STMPO =; LOAD RETURN ADDRESS 


JMP [PRIME T HE PROGRAM VECTOR SPACE 
CKSWR [CHECK THE SWR 

CLR @ASR [CLEAR THE CSR 

MOV #-1,aABR [PRELOAD PRESET BUFFER. 

MOV #63, aA3R TRATE ST1, MODE 1, GO. 

BIS #8118, aASR < GENERATE “a MAIN, ST1. 

ip 

TST @asR :D1D OVERFLOW SET ST2 FLAG? 
BMI 10TST2 YES = 

ERROR [CL ov" OUT TO ST2 IN FAILED. 
BR 10TST2 [LOOP 


SEQ 0069 


ee + 


KWV11A DISAGNOSTIC MAIJNDEC=11-CNKWA-A MACY11 eth er 
1 16=DEC-82 15:38 31/0 


CNKWAA.P 


num 
RO 
o 
J 
iw) 
=~“ 
wW 
N 


™ 
oooo OCCOCoCoCoCoO 
2244 Sooo 
~— 


01630 
001526 


000001 
000400 
165124 


010000 


-SBTTL 


001420 OITST3: 
10TST3: 


165112 18: 


MCV 
MP 

CKSWR 

MOV 


16=DEC-82 F 15802 


PAGE 82 
SIGNAL TEST #2 CLOCK OVFLOW OUT TEST. 


71/0 SIGNAL TEST #3 ST1 OUT AND ST2 IN 


SWITCH cotter S2 we SET UP AS FOLLOWS: 
F 


- OFF 


USED 
THIS SELECTS TTL THRESHOLD AND POSITIVE SLOPE FOR 
SCHMITT TRIGGER 2. 


:PLEASE REMOVE ANY PREVIOUS JUMPERS. 


JUMPER THE owe 4 TOGETHER: 
i J1 = UW (STI OUT) TO J1 = TT (ST2=IN) 


LOAD AND START AT LOCATION 220 
TEND one dae OCCUR IMMEDIATELY AND ARE NOT REPORTED 
ERRORS ARE REPORTED AS IN THE REGULAR LOGIC TEST AND 
ZTHEIR PRINTOUT MAY BE INHIBITED 


#1OTST3,STMPO Lon RETURN ADDRESS 

INIT PRIME THE PROGRAM VECTOR SPACE 
ZCHECK THE SwWR 

#1,@ASR 3SET GO BIT 

#81T8,aASR 7GENERATE A MAIN. ST1. 

@ASR 3D1D ST2 FLAG SET? 
3ST1 OUT TO ST2 IN FAILED 

7 Ta 3D1D "FOR" BIT SET? 

IOTST 


NO - 
:"FOR" BIT “Ser ON ONLY 1 ST2. 
1oTSsT3 LOOP 


SEQ 0070 
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CNKWAA.P1 6=DEC=82 1 O SIGNAL TEST #3 ST1 OUT AND ST2 IN SEQ 0071 
7240 
7241 
724 .SBTTL 
724 “SBTTL *SYSMAC ROUTINES 
rend ~SBTTL 
ress .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
(2) SAAR AAEAAAAAAAAHAHAHAAAAAAHEAAAEERAEES FRESHER eeeaeeeaeaeeaeee 
1) 2 STHIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 6-DIGIT 
(1) ;*OCTAL (ASCII) NUMBER AND TYPE IT. 
(1 : oSTYPOS~-"ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
ie 
qa) 3* MOV NUM, =(SP) :;NUMBER TO BE TYPED 
1) te TYPOS ‘:CALL FOR TYPEOUT 
(1) it .BYTE ON ::N=1 TO $ FOR NUMBER OF DIGITS TO TYPE 
(1) 3* .BYT 4 3zM=1 OR 
(1) te 71=TYPE LEADING ZEROS 
a ? i* :0=SUPPRESS LEADING ZEROS 
3* 
(1) :*$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) =*$TYPOS OR $TYPOC 
(1) s*CALL: 
(1) ie MOV NUM, =(SP) Z:NUMBER TO BE TYPED 
(1) ie TYPON [:CALL FOR TYPEOUT 
3* 
ql ) : #$TYPOC=--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
(1) ie MOV NUM, =(SP) ZNUMBER TO BE TYPED 
(1 ie TYPOC tICALL FOR TYPEOUT 
(1) 014272 017646 000000 STYPOS: MOV a(SP),-(SP) z:PICKUP THE MODE 
(1) 014276 116637 000001 014515 VB 1(SP),SOFILL 3;LOAD ZERO FILL SWITCH 
(1) 014304 112637 014517 MOVB (SP)+,SOMODE+1 ;;NUMSER OF DIGITS TO TYPE 
(1) 014310 062716 000002 ADD #2, (SP) S:ADJUST RETURN ADDRESS 
(1) 014314 000406 $TYPON 
(1) 014316 112737 000001 014515 $TYPOC: MOVB #1,$OFILL 33$ET THE ZERO Fit SWITCH 
(1) 0143246 112737 000006 014517 MOVB #6. SORODE+1 *SeT FOR SIX(6) DIGITS 
(1) 014332 112737 000005 014514 $TYPON: MOVB #5.$OCNT TISET THE ITERATION COUNT 
(1) 014340 010346 v R3,-(SP) 7: SAVE 
(1) 014342 010446 MOV R4,-(SP) TISAVE R4 
(1) 014344 010546 MOV R5,-(SP) z3SAVE R R5 
(1) 014346 113704 014517 MOVB +1,R4 :.GET THE NUMBER OF DIGITS TO TYPE 
(1) 014352 005404 NEG R4 
(1) 014354 062704 000006 ADD #6, RG 33 SUBTRACT IT FOR MAX. ALLOWED 
(1) 014360 110437 014516 MOVB  R4.SOMODE [SAVE IT FOR USE 
(1) 014364 113704 014515 MOVB  SOFILL,R4 $IGET THE ZERO FILL SWITCH 
(1) 014370 016605 000012 MOV a “RS 7:PICKUP THE INPUT NUMBER 
(1) 014374 005003 CLR CLEAR THE OUTPUT WORD 
(1) 014376 006105 1$: ROL zEROTATE | MSB INTO "'C 
(1) 014400 000404 BR A :GO DO MSB 
(1) 014402 006105 28: ROL RS [:FORM THIS DIGIT 
(1) 014404 006105 ROL R5 
(1) 014406 006105 ROL R5 
(1) 014410 010503 MOV R5,R3 
(1) 014412 006103 3$: ROL R3 z:GET LSB OF THIS DIGIT 
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CNKWAA.P11 ©: 16=DEC=82 15:38 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0072 
(1) 014414 105337 014516 DECB  SOMODE rTYPE THIS DIGIT? 
(1) 014420 10001 BPL 7:BR IF NO 
(1) 014422 042703 177770 BIC #177770,R3 t:GET RID OF JUNK 
(1) 014426 001002 BNE 4$ Si TEST F 
(1) 014430 005704 TST RG ::SUPPRESS THIS 0? 
(1) 014432 001403 BEQ 5$ ssBR IF Y 
(1) 014434 005204 4$: INC RG [DON'T SUPPRESS ANYMORE 0°S 
(1) 014456 O52 03 000060 BIS #°O,R S:MAKE THIS DIGIT ASCII 
(1) 014442 052703 000040 5$: BIS a R S:MAKE ASCII IF NOT ALREADY 
(1) 014446 110337 014512 MOVB = R23, 8S S:SAVE FOR TYPING 
(1) 014452 104401 014512 TYPE a ::60 TYPE THIS DIGIT 
(1) 014656 105337 014514 7$: Deca. «36s SOCCINT [:COUNT BY 1 
(1) 014462 003347 BGT 2$ ::BR IF MORE TO DO 
(1) 014464 002402 BLT 68 3:8R I 
(1) 014466 005204 INC RG S: INSURE LAST DIGIT ISN°T A BLANK 
(1) 014470 000744 BR 2s 7:60 DO THE LAST DIGIT 
(1) 0144672 012605 6$: MOV (SP)+,R5S T RESTORE RS 
(1) 014676 012604 MOV (SP)+.R4 TIRESTORE R4 
(1) 014676 012603 MOV (SP)+_R3 T:RESTORE R3 
(1) 014 016666 000002 000004 MOV 2(SP).4(SP) t:SET THE STACK FOR RETURNING 
(1) 014506 012616 MOV (SP)+, (SP) 
(1) 014510 2 RTI RETURN 
(1) g1451¢ 000 8$ .BYTE 0 t:STORAGE FOR ASCII DIGIT 
(1) 01451 000 “BYTE 0 [TERMINATOR FOR TYPE ROUTINE 
(1) 014514 000 SOCNT: .BYTE 0 Z:0CTAL DIGIT COUNTER 
(1) 014515 000 SOFILL: .BYTE 0 t:ZERO FILL SWITCH 
(1) 014516 000000 E: .wORD 0 Z:NUMBER OF DIGITS TO TYPE 
7247 .SBTTL BINARY TO ASCII AND TYPE ROUTINE 
(2) 3 g SHAKSASASSSSTAASAARASASAATASATESAAAAAAAARAAASAAARAAAAARAAEREEAAEAAREREE 
(1) S*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-B1T 
a ? i #BINARY=ASCII NUMBER AND TYPE IT. 

2 a 

a) ie MOV NUMBER,-(SP)  ;;NUMBER TO BE TYPED 
3° 3* TYPBN sc TYPE IT 
(1) 014520 010146 STYPBN: MOV R1,-(SP) z:SAVE R1 ON THE STACK 
(1) 014522 016601 000006 mov 6 (SP) ,R1 3:GET THE INPUT NUMBE 
(1) 014526 000 $1 SEC t:SET “'C’* SO CAN KEEP TRACK OF THE NUMBER OF BITS 
(1) 014530 112737 000060 014572 1$: mOVe 3 =-s« #0, SBIN t:SET CHARACTER TO AN ASCII ‘O". 
(1) 014536 006101 R1 [:GET THIS BIT 
(1) 014540 001406 BEO 2$ + DONE? 
(1) 014542 105537 01457. ADCB =: $BIN t.NO=-SET THE CHARACTER EQUAL TO THIS BIT 
(1) 014546 104401 01457 TYPE  ,$BIN 7:G0 TYPE THIS BIT 
(1) 014552 000241 CLC [:CLEAR "'C’' SO CAN KEEP TRACK OF BITS 
(1) 014554 000765 BR 1$ 33 T T BIT 
(1) 014556 912601 2s: MOV (SP)+,R1 [:POP THE STACK INTO R1 
(1) 014560 16666 000002 000004 MOV 2(SP).4(SP) S:ADJUST THE STACK 
(1) 014566 012616 MOV (SP)+, (SP) 
(1) 014570 000002 RTI ::;RETURN TO USER 
$2 014572 000 0co $BIN: .BYTE 0,0 S:STORAGE FOR ASCII CHAR. AND TERMINATOR 
7259 
7260 ~SBTTL ERROR HANDLER ROUTINE 
(2) Fo TAAA ee eee ee eeeeeeeeeeeeeeeeeeredeereegeeeerageereerenegeeeeeeee 
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Secwae 15:38 ERROR HANDLER ROUTI SEQ 0073 


s*THIS ao of Ld ith INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:SSAVE | ERROR ITER Wet AND THE ADDRESS OF THE ERROR CALL 


vo 
po 
3 


GO TO SERRTYP ON 

is THE gO Te OPTIONS PROVIDED BY THIS ROUTINE ARE: 

:*Sw15=1 HALT ON ER 

:*SW13=1 INHIBIT ERROR TYPEOUTS 

:*Sw10=1 BELL ON ERROR 

se$u09=1 LOOP ON ERROR 

3* ERROR N z;ERROR=EMT AND N=ERROR ITEM NUMBER 
014574 SERROR 
014574 104407 CKSWR 3 TEST FOR CHANGE IN SOF T=SwR 
014576 105237 001103 7$: INCB = SERFLG 33SET THE ERROR FLAG 
014602 001775 BEO DON'T LET THE FLAG GO TO ZERO 
014606 013777 001102 164330 MOV STSTNM,@DISPLAY 2 OOSPLAY TEST NUMBER AND ERROR FLAG 
014612 032777 002000 164320 BIT #B1T10,aSuR [:BELL ON ERROR? 
014620 0014 BEQ 1$ 3zNO - SK 
014622 104401 001164 TYPE SBELL 33RING BELL 
014626 005257 001112 1$: INC RTT :COUNT THE NUMBER OF ERRORS 
014632 011637 001116 MOV (SP) SennPc tIGET ADDRESS OF ERROR INSTRUCTION 
014636 737 001116 SUB #2, SERRPC 
014644 117737 164246 001114 MOVB QSERRPC.SITERB z:STRIP AND SAVE THE ERROR ITEM CODE 
014652 777, 020000 164260 BIT 1713, aSwR SZ SKIP TYPEOUT IF SET 
014660 001004 BNE t:SKIP TYPEOUTS 
014662 004737 015002 JSR PC, SERRTYP +:G0 TO USER ERROR ROUTINE 
01466 104401 001171 a TYFE  ,$CRLF 
pees: 122737 000001 001214 C4PB 0s @APTENV. SENV : RUNNING IN APT MODE 
014700 001007 NE SKIP APT ERROR REPORT 
014702 113737 001114 014714 MOVB = SITEMB,.218 rae ITEM NUMBER AS ERROR NUMBER 
014710 004737 016474 JSR PC ,SATY4 + REPORT FATAL ERROR TO APT 
014714 21$: BYTE 
014715 000 “BYTE 0 
014716 000777 228: BR 228 z;APT ERROR LOOP 
014720 005777 164214 2$: TST aSwWR S:HALT ON ERROR 
014724 100002 BPL 3$ ::SKIP IF CONTINUE 
0147, 00 HALT S:HALT ON ERROR! 
014730 104407 CKSWR :: TEST FOR C IN SOF T=SwR 
014732 032777 001000 164200 38: BIT #B1T09,aSuR [LOOP ON ERROR SWITCH SET? 
014740 001402 BEQ 4 [:6R IF NO 
014742 013716 001110 MOV SLPERR, (SP) S:FUDGE RETURN FOR LOOPING 
014746 005737 001162 4$: TST SESCAPE :. CHECK FOR AN ESCAPE ADDRESS 
014752 001402 BEO 5$ ::BR IF NONE 
014754 013716 001162 * MOV SESCAPE.(SP)  ::FUDGE RETURN ADDRESS FOR ESCAPE 
014760 005237 001432 INC ERCNT :/UPDATE ERROR COUNT . 
014764 001002 BNE 10$ + /BUT T tert OVERFLOW. 
pieres 005337 001432 ate DEC ERCNT + /KEEP y 177777 IF apd 
014772 043737 001426 001430 BIC ROTATE,UTEST | ;/REMOVE UNIT FROM LIST OF GOOD ONES. 
1 000002 RTI /EXIT. 
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J PASSA AAAS AAA EA EKAS SSAA AEHAAAAAAAAAEAARAAAAEAAAEAHEREKEEEEE 


iSTHIS ROUTINE USES THE **ITEM CONTROL th i servers) To ge pe by WHICH 


S*ERROR IS TO BE REPORTED. IT THEN OBTA FROM THE “ERROR TABLE’ (SERRTB), 
[*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
013008 SERRTYP: 
015002 104401 001171 TYPE SCRLF 3s"CARRIAGE RETURN & "LINE FEED" 
915006 010046 MOV RO. ~(SP) 
015010 005000 CLR RO tIPICKUP THE ITEM INDEX 
015012 153700 001114 8158 OrSITERB. RO 
015016 007004 BNE 1$ ze1F ITEM NUMBER IS ZERO. Just 
[TYPE THE PC OF THE ERR 
015020 013746 001116 MOV SERRPC,-(SP) Eaton SERRPC F FOR TYPEOUT” 
015024 104402 TYPOC 3360 PYPESCOETAL ASCIICALL DIGITS) 
015026 000426 BR 6$ T ouT 
015030 005300 1$: DEC RO ADJUST THE INDEX SO THAT IT WILL 
015032 006300 ASL RO 33 WORK FOR THE ERROR TABLE 
015034 006300 ASL RO 
015036 300 ASL RO 
015040 062700 001256 ADD #SERRTB,RO z:FORM TABLE POINTER 
015044 012037 015054 MOV (RO)+,2$ [PICKUP "ERROR MESSAGE’’ POINTER 
015050 001404 BEQ 3$ 3:SKIP TYPEOUT in NO POINTER 
015052 104401 TYPE 3 TYPE THE “ERROR MESSA 
015054 000000 28: .WORD 0 33 TERROR ROR MESSAGE POINTER GOES HERE 
015056 104401 001171 TYPE  ,SCRLF S:"CARRIAGE RETURN’ & “LINE FEED 
015062 012037 015072 38: mov &RO)+ 48 :JPICKUP DATA HEADER" POINTER 
913098 Mecot TYPE T: TYPE THE PATA, HEADER" 
015072 000000 4$: «WORD 0 33"DATA HEADER" POINTER GOES HERE 
015074 104401 001171 TYPE  ,SCRLF z2°"CARRIAGE RETURN’ & “LINE FEED" 
015100 011000 5$: MOV (RO) RO [PICKUP "DATA TABLE" POINTER 
015102 001004 BNE 7$ £:G0 TYPE THE DAT 
015104 012600 68: MOV (SP)+,RO [RESTORE RO 
015106 104401 001171 TYPE  ,S$CRLF rrCARRIAGE RETURN’ & “LINE FEED" 
Qisit2 000207 be RTS PC + RETURN 
015114 013046 MOV a(RO)+,=(SP) ii SAVE a(RO)* FOR TYPEOUT 
015116 104402 TYPOC 3360 TYPE=-OCTAL ASCII CALL DIGITS) 
015120 005710 TST (RO) t:1S THERE ANOTHER NUMBER? 
015122 001770 BEQ 6$ 7:BR IF NO 
015124 104401 015132 TYPE 8$ 3. TYPE TwO(2) SPACES 
015130 000771 BR iL 
015132 920040 000 8$: Aen a] 22 Two(2) SPACES 
-SBTTL SCOPE HANDLER ROUTINESTARS 
:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
3 AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
SAND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
7 *THE SWITCH OPTIONS PROVIDED BY THIS ROU 
S*SW14=1 LOOP ON TEST 
+ eSwi1=1 TNMIBIT ITERATIONS 
+ *Sw09=1 LOOP ON ERROR 
:s$w0B=1 LOOP ON TEST IN SWR<7:0> 
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AGNOSTIC MAINDECSII~CNKWA-A MACYI1 30(1046)_ 16-DEC 
16-DEC-82 15:38 SCOPE HANDLER ROUTINESTARS SEQ 0075 
z* SCOPE ;;SCOPE=10T 
015136 SSCOPE: 
015136 104407 CKSWR 3TEST FOR CHANGE IN SOF T-SwR 
015340 104407 CKSWR 
Q13142 032777 040000 163770 1$: BIT —-#BITI4,aSWR LOOP ON PRESENT TEST? 
015150 001114 BNE SOVER SES IF Swi4=1 
AMANASTART OF CODE FOR THE XOR fésteReesee 
015152 000416 $xTSTR: BR 6$ i 1F RUNNING ON THE “XOR'” TESTER CHANGE 
33 THIS INSTRUCTION TO A ‘NOP*' (NOP=240) 
15154 013746 000004 MOV @FERRVEC -= (SP) SESAVE. THE CONTENTS. OF THE ERROR VECTOR 
15160 012737 015200 000004 MOV © #5$,aVERRVEC = SET _FOR TIMEOUT 
015166 005737 177060 rst g#177060 ME OUT ON XOR? 
15172 012637 000004 MOV (SP) + ,a#ERRVEC $ERESTORE THE ERROR VECTOR 
5176 00046 BR S$SVLAD O THE NEXT TES 
5200 022626 S$: CMP  (SP)+,(SP)+ $3 CLEAR THE STACK AFTER A TIME OUT 
5202 012637 000004 MOV (SP) +, @#ERRVEC i: RESTORE THE ERROR VECTOR 
5206 000423 BR 7$ THE PRESENT TEST 
5210 6$:;##NNREND OF CODE FOR THE KOR TESTERAANES 
5210 032777 000400 163722 BIT  #B1T0B,aswR =; ;LOOP_ON SPEC. TEST? 
5216 001404 BEQ f 
5220 127737 163714 001102 CMPB = @SWR,STSTNM = 3:ON THE RIGHT TEST? — SwR<7:0> 
5226 001465 BEQ © SOVER 3:BR IF YES 
5230 105737 001103 28: TSTB $ERFLG 3HAS AN ERROR OCCURRED? 
5234 001421 BEQ 3S 33 
5236 123737 001115 001103 CMPB = SERMAX,SERFLG =: MAX. ERRORS FOR THIS TEST OCCURRED? 
5244 101015 BHI $ 338R IF 
3846 052777 001000 163664 BIT  § #B1TO9,aSWR = ;;LOOP ON ERROR? 
15254 001404 BEQ 33 
5256 013737 001110 001106 7$: MOV = SLPERR,SLPADR + ::SET LOOP ADDRESS TO LAST SCOPE 
5264 000446 BR SOVER 
5266 105037 001103 4$:  CLRB —- SERFLG 33ZERO THE ERROR FLAG 
5272 005037 001160 CLR = $TIMES CLEAR THE NUMBER OF ITERATIONS TO MAKE 
5276 000415 BR 1$ CAPE TO THE NEXT TEST 
5300 032777 004000 163632 3$: BIT #BIT11,asuR :SINMIBIT ITERATIONS? 
5306 001011 BNE 18 2BR IF VES. 
5310 005737 001202 TST —- $PASS zi1F FIRST PASS OF PROGRAR 
5314 001406 BEQs18 INHIBIT ITERATIONS 
5316 005237 001104 INC —- SICNT ; INCREMENT ITERATION COUNT 
5322 023737 001160 001104 CMP STIMES,SICNT CHECK THE NUMBER OF ITERATIONS MADE 
3330 002024 BGE SOVER 336R IF MORE ITERATION REQUIRED 
5332 012737 000001 001104 1$: MOV #1,SICNT : SREINITIALIZE THE ITERATION COUNTER 
5340 013737 015416 001160 MOV, — SAXCNT.STIMES —3.SET NUMBER OF ITERATIONS TO DO 
5346 105237 001102 SSVLAD: INCB © $TSTNM COUNT TEST NUMBERS 
5352 113737 001102 001200 MOVE —STSTNM-STESTN ::SET TEST NUMBER IN APT MAILBOX 
5360 011637 001106 MOV  (SP),$LPADR 3; SAVE SCOPE LOOP ADDRESS 
5364 011637 001110 MOV (SP) .SLPERR ZSAVE ERROR LOOP ADDRESS 
3370 003037 001162 CLR —- SESCAPE ZCLEAR THE ESCAPE FROM ERROR ADDRESS 
5374 112737 000001 001115 MOVB = #1, SERMAX LY ALLOW ONE (1) ERROR ON NEXT TEST 
5402 013777 001102 163532 SOVER: MOV © $TSTNM,a@DISPLAY :;DISPLAY TEST NUMBER 
5410 013716 001106 MOV © SLPADR,(SP) =»; FUDGE RETURN ADDRESS 
5414 000002 RTI zEEIXES PS 
5416 003720 SMXCNT: 2000. 33MAX. NUMBER OF ITERATIONS 
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sLeteeeeeencereaeeerereeeeeeeeeeeeererereeereeeereereeeerererere 
ree» hb SWITCH Hy tly ——— ROUTINE. 

*ROUTINE IS ENTERED FROM THE T Oper to ER, 
3 #SERVICE be TEST FOR CHANGE IN SOFTWARE Sul TCH REGISTER TRAP CALL 


*WHEN OPERATING IN TTY FLAG ‘ 
$ckSuR: CMP #SWREG, SUR 31S THE SOFT=-SWR SELECTED? 
S:BRANCH I 
TST8 ogres z:CHAR THERE? 
BPL t:1F NO, DON'T WAIT AROUND 
MOVB a =(SP) S:SAVE THE 
BIC act fs (SP) t:STRIP-OFF THE ASCII 
CMP t:1S ITA CONTR 
BNE "3 ::NO, RETURN TO USER 
CMPB =: $AUTOB,, #1 T:ARE WE RUNNING IN AUTO-MODE? 
BEQ 15$ [BRANCH IF YES 
TYPE  ,$CNTLG 3 zECHO THE CONTROL=G (*G) 
SGTSWR: TYPE < :: TYPE CURRENT CONTENTS 
V SWREG,-(SP) 23 SAVE SWREG FOR TYPEOUT 
TYPOC 2:60 TYPE=-OCTAL ASCIICALL DIGITS) 
TYPE P :ZPROMPT FOR NEW SWR 
19$: CLR =(SP) S:CLEAR COUNTER 
CLR -(SP) 
>; THE NEW SWR 
7$: ts18 3s aaSTK ZzCHAR THERE? 
BPL 7$ t:IF NOT TRY AGAIN 
MOVB aS TKB,-(SP) z:PICK UP CHAR 
BIC #°C177, (SP) t:MAKE IT 7-BIT ASCII 
9$: CMP (SP) #25 z:1S IT A CONTROL-U? 
BNE 10$ ::BRANCH IF NOT 
TYPE  ,$CNTLU [:YES, ECHO CONTROL-U (*U) 
20$: ADD #6, SP 33 IGNORE PREVIOUS INPUT 
BR 19$ ::LET*S TRY IT AGAIN 
10$: CMP (SP) #15 31S i A <cR>? 
BNE 16$ >:BRANCH IF 
TST 4(SP) +: YES, “ls IT i FIRST CHAR? 
BEQ 11$ [:BRANCH IF YES 
MOV 2(SP) ,aSwR sz SAVE NEW S 
11$: ADD #6,SP [:CLEAR UP STACK 
14$: TYPE SCRLF z3ECHO <CR> AND < 
CMPB 0 fs«SINTAG,#1 33RE~ENABLE TTY <B>. INTERRUPTS? 
BNE 15$ 33BRANCH IF NO 
MOV #100, aSTks [RE-ENABLE TTY KBD INTERRUPTS 
15$: RTI +: RETURN 
16$: JSR PC ,STYPEC ::ECHO CHAR 
CMP (SP) ,#60 ::CHAR < 0? 


SEQ 0076 
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(CNKWAA.PTT ——16=DE mae 15638 TTY INPUT ROUTINE SEL 0077 
/ €1) 015632 0024 BLT 18$ BRANCH F YES 
| @) pi eese posese 000067 CMP (SP) ,#67 ae 
| @ 013640 003015 BGT 18$ < SERANCH IF YES 
' (1) 015642 042726 000060 BIC #60, (SP)+ $3 STRIP-OFF ASCII 
cc a7 013646 005766 000002 TST 2(SP) 21S THIS THE FIRST CHAR 
| (1) 015652 00140 BEO 17$ S:BRANCH IF YES 
(1) 015654 3 ASL (SP) t:NO, SHIFT PRESEN 
| G1) 015656 006516 ASL (SP) 33 “CHAR OVER TO MAKE 
(1) 015660 006316 ASL (SP) +: ROOM ONE. 
(1) 015662 005266 000002 17$: ‘INC 2(SP) S:KEEP COUNT OF CHAR 
(1) 015 056616 177776 BIS =2(SP), (SP) 33SET IN NEW CHAR 
(1) 015672 000707 BR [:GET THE NEXT ONE 
(1) 015674 104401 001170 18$: TYPE SQUES T:TYPE 2<CR><LF> 
(1) 015700 000720 20$ Z:SIMULATE CONTROL-U 
(1) .DSABL LSB 
ah 
(2) FERRARA AAAEEAEEEAEEE EEE EEE EEAAEAEEEAAEEEEEEREREEREEEEEEEEEEERE 
(1) ZeTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
(1) * RDCHR zINPUT A SINGLE CHARACTER FROM THE TTY 
(1) it RETURN HERE S:CHARACTER IS ON THE STACK 
(1) * Z:WITH PARITY BIT STRIPPED OFF 
(1) 
(1) 015702 011646 SRDCHR: MOV (SP) ,=(SP) z:PUSH DOWN THE PC 
(1) 015704 016666 000004 000002 MOV (SP), 2(SP) *:SAVE THE PS 
(1) 015712 105777 163226 1$: TSTB ss a$TK t:WAIT FOR 
(1) 015716 100375 BPL 1S [2A CHARACTER 
(1) 015720 117766 163222 000004 MOVB = a$T S:READ THE TTY 
(1) 015726 042766 177600 000004 BIC pth Th ASP) t:GET RID OF JUNK IF ANY 
(1) 015734 026627 000023 CMP 4(SP) #23 331S IT A CONTROL~S 
(1) 015742 001013 BNE :BRANCH IF NO 
(1) 015744 105777 163174 2$: TSTB = aS TKS 33WAIT FOR A CHARACTER 
(1) 015750 100375 BPL $ SLOOP UNTIL ITS THERE 
(1) 015752 117746 163170 MOVB  a$TKB (SP) 33GET CHARACTER 
(1) 015756 042716 177600 BIC #°C177, ( S2MAKE IT 7-BIT ASCII 
(1) 015762 022627 000021 CMP (SP)+ Fi t:1S IT A CONTR 
(1) 015766 001 BNE 231 Nor DISCARD ir 
(1) 015770 000750 BR 1$ :YES RESUME 
(1) 015772 026627 000004 000140 3s: CMP 4(SP),#140 [1S IT UPPER CASE? 
(1) 016000 002407 BLT 4$ < ER ANCH IF YES 
(1) 016002 026627 000004 000175 CMP 4(SP),#175 ::1S IT A SPECIAL CHAR? 
(1) 016010 003003 BGT 4$ S:BRANCH IF YES 
(1) 016012 042766 000040 000004 BIC #40,4(SP) [:MAKE IT UPPER CASE 
(1) 016020 000002 4$: RTI $:G0 BACK TO USER 
(2) FERRE EAE AERA EEE EEE EEE EAE AAEEEAEEEEEEEAEEEEEEEEAEEEEEEE 
(1 gSTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
(1) fe RDLIN s INPUT A STRING FROM THE TTY 
(1) it RETURN HERE SSADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
(1) te T: TERMINATOR WILL BE A BYTE OF ALL 0°S 
(1) 016022 010346 SRDLIN: MOV R3,-(S s7SAVE R3 
(1) 016024 012703 016130 1$: MOV ast Trine a3 t:GET ADDRESS 
(1) 016030 022703 016140 23: CMP #STTYIN®B.,R3 > BUFFER FULL? 


a a ee eS 


ooo + Oe re eee ee ee et Se + 


N_ 6 
KWVIIA aaa TIC C=11-CNKWA-A vo Sh be ab ay 16=DEC-82 15:42 PAGE 83-7 
/CNKWAA.P11 16=DEC cn82 15:38 Y INPUT ROUTINE SEQ 0078 
1) 016034 101405 BLOS 4$ 338R IF YES 
1) 016036 10441 RDCHR 37G0_ READ ONE CHARACTER FROM THE TTY 
1) db e'ee' 1s 1 MOVB (SP)+, (R3) 33GET CHARACTER 
1) 016042 122713 000177 108: CMPB #177,(R3) 31S ITA T 
1) 016046 001003 BNE $ 3sSKIP IF NOT 
1) 016050 104401 001170 4$: TYPE $QUES ss TYPE A_*°?° ‘ 
1) 016054 000763 BR $ 23CLEAR THE BUFFER AND LOOP 
1) 316038 111337 016126 3$: MOVB (R3) ,98 3sECHO THE CHARACTER 
1) 01 104401 016126 TYPE P 
1) 016066 122723 000015 CMPB #15, (R3)+ — FOR a aan 
1) 016072 SE BNE $ LOOP IF NOT RETURN 
1) 016074 105063 177777 CLRB =1(R3) Z:CLEAR RETURN (THE 15) 
1) 016100 104401 001172 TYPE 2 $LF 23 TYPE A LINE FEED 
1) 0161046 012603 MOV (SP)+,R3 sRESTORE R3 
1) 016106 011646 MOV (SP) ,=(SP) 3 ADJUST THE STACK AND PUT ADDRESS OF THE 
1) 016110 01 000004 000002 MOV 4(SP5 ,2(SP) 33 FIRST ASCII CHARACTER ON IT 
1) 016116 012766 016130 000004 MOV #STTYIN,4(SP) 
1) 016124 000002 RTI 3 sRETURN 
1) 016126 9$: BYTE 0 +3 STORAGE FOR ASCII CHAR. TO TYPE 
1) 016127 000 BYTE 0 ER 
1) 016130 000010 STTYIN: .BLKB_ 8. ; ;RESERVE 8 BYTES FOR TTY INPUT 
1) 016140 052536 005015 000 SCNTLU: .ASCIZ /*U/<15><12> 3sCONTROL ° 
1) 016145 136 006507 000012 SCNTLG: .ASCIZ /*G/<15><12> ::CONTROL *'G’’ 
1) 016152 005015 053523 020122 SMSWR: .ASCIZ <15><12>/SWR = / 
1) 016160 020075 000 
1) 016163 040 047040 053505 SMNEW: .ASCIZ / NEW = / 
1) 016170 036440 000040 


-SBTTL TYPE ROUTINE 


i TS st Ne et ee ate sete tt neo 


N“ 
E&P PR PR PR PR PR PRP PROP PPP PP PP PP Pe SSSFSSSSSSSSSSSSSSSSSSSSSSSSSS5 


1) 

2) 3g SEAEEAAAAAEAEAAAAETAEATATAEAAAAAAAAAARERARAAERAAAEAAAEERAAEEEAEERE 

1) s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 OvTE. 

1) S*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

1) s*NOTE1: SNULL CONTAINS ™ CHARA TER 9 BE USED AS THE FILLER CHARACTER. 

1)  *NOTE2: SriLtS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

4 7 *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
7* 

1) *CALL: 

1) 371) USING A TRAP INSTRUCTION 

4 i. YPE »MESADR zzMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
ie 

1) oO ot YPE 

1) 3* RESADR 

3 ” 

1) 016174 105737 001157 $TYPE: TSTB STPFLG z21S THERE A TERMINAL? 

1) 016200 100002 BPL 1$ 37:BR 

1) 016202 000000 HALT s:HALT HERE IF NO TERMINAL z 

1> 016204 000430 BR 3$ 7 LEAVE 

1) 016206 010046 1$: MOV RO,-(SP) 33SAVE RO 

1) 016210 017600 000002 MOV a2(sP),RO ::GET ADDRESS of ASCIZ STRING 

1) 016214 122737 000001 001214 CMPB #APTENV, SENV 7:RUNNING IN APT MOD 

1) 016222 001011 BNE ::NO,GO CHECK FOR APT CONSOLE 

1) 016224 132737 000100 001215 B1TB #APTSPOOL , SENVM +3 SPOOL MESSAGE TO APT 

1) 016232 001405 BEQ 62$ 3NO,GO CHECK FOR CONSOLE 

1) 016234 010037 016244 MOV RO,61$ SETUP MESSAGE ADDRESS FOR APT 

1) 016240 004737 016464 


JSR PC ,SATY3 z2SPOOL MESSAGE TO APT 


S 


1A DISAGNOSTIC MAIND 
Pil 16=DEC-82 1 

(1) 3 44 
(1) 016246 1327357 000040 001215 
(1) 016254 001003 
(1) 01 ES os 
(1) 016260 00100 
(1) ales 005726 
(1) 016264 825600 
(1) 01 $ 8 000002 
(1) 01 00000 
(1) 016274 122716 000011 
(1) 016 001430 
(1) 016302 122716 000200 
(1) 016 001006 
(1) Bios! 005726 
(1) 016312 104401 
(1) 016314 001171 
(1) 016 18 105037 016452 
(1) 016 000755 
(1) 016324 TELA 16406 
(1) 016 1 +766 001156 
(1) 016334 001350 
33 016336 013746 001154 
(1) 016342 105 000001 
(1) 016346 003710 
(1) 016350 004737 0164 
(1) 0163554 105337 01645 
28 016360 000770 
wD 
(1) 016362 Leris 000040 
(1) B1oee8 004737 016406 
(1) 016372 132737 000007 016452 
(1) bts 001372 
(1) 016402 005726 
(1) 016404 000724 
(1) 0164 105777 162536 
(1) 016412 100375 
033 016414 116677 000002 162530 
(1) Onehes 1ca ree 000015 000002 
(1) 0164 00100 
(1) 016432 105037 016452 
(1) 016436 000406 
(1) 016440 122766 000012 000002 
(1) 016446 00140 
(1) 016450 10522 
(1) 016452 000000 
7? 016454 000207 
(1) 
(1) 

7265 
(1) 
(2) 


61$: .WORD 0 
62$: ITB #APTCSUP, SENVM 
2s: MOVB (RO) +, =(SP) 
BNE 4$ 
TST (SP)+ 
608: MOV (SP) RO 
$: ADD #2, (SP) 
4$: CMPB ss #HT,, (SP) 
BEQ $ 
CMPB ss @ CRLF, (SP) 
BNE 
TST (SP)+ 
TYPE 
SCRLF 
CLRB  §$CHARCNT 
BR $ 
5$: JSR PC ,STYPEC 
6S: CHEB SFILILC,(SP)+ 
MOV $NULL,=(SP) 
7$ DECB = s«41( SP) 
BLT 6% 
JSR PC ,STYPEC 
DECB  $CHARCNT 
7$ 
;HORIZONTAL TAB PROCESSOR 
8$: move =s #"_ , (SP) 
9$: JSR PC, $TYPEC 
BITB #7.$CHARCNT 
BNE 9$ 
TST (SP)+ 
BR 23 
STYPEC: TSTB a$TPS 
BPL STYPEC 
MOVB 2(SP), a$TPB 
CMPB ss CR, 2(SP) 
BNE 
CLRB  $CHARCNT 
BR STYPEX 
1$: CMPB ss LF, (SP) 
BEQ STYPEX 
INCB = (PC) + 
SCHARCNT: . WORD 
STYPEX: RTS PC 


8 7 
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238 TYPE ROUTINE 


3sMESSAGE ADDRESS 

3sAPT CONSOLE SUPPRESSED 

33YES,SKIP TYPE OUT 

33PUSH CHARACTER TO BE TYPED ONTO STACK 
33BR IF IT ISN'T THE TERMINATOR 

331F TERMINATOR POP IT OFF THE STACK 


TZADJUST RETURN PC 
[:BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


3;POP <CR><LF> EQUIV 
33TYPE A CR AND LF 


3:CLEAR CHARACTER COUNT 

33GET NEXT CHARACTER 

33G0 TYPE THIS CHARACTER 

3343 IT TIME FOR PiLLes CHARS.? 


3 NULL CHAR. 
3;DOES A NULL NEED TO BE TYPED? 


A NULL 
33D0 NOT COUNT AS A COUNT 
ooP 


3sREPLACE TAB WITH SPACE 
TYPE A SPACE 
33;BRANCH IF NOT AT 

37 TOP 
33POP SPACE OFF STACK 
33GET_NEXT CHARACTER 
3sWAIT UNTIL PRINTER IS READY 


3;LOAD CHAR TO BE TYPED INTO DATA REG. 


3310S CHARACTER A CARRIAGE RETURN? 


3 BRANCH 

32: YES--CLEAR CHARACTER COUNT 
321S CHARACTER A LINE FEED? 
:;BRANCH IF YES 

3:COUNT THE CHARACTER 
3;CHARACTER COUNT STORAGE 


~SBTTL APT COMMUNICATIONS ROUTINE 


SF ARAAAAAAAEAEAEAAEEAEREAEEEAEEEEEAAEAAEEEAAEREREREREREAAAEREREREES 





cf oO 


::BR IF NO--GO POP THE NULL OFF OF STACK 
0 TYPE 


SEQ 0079 


oo re ee Cre 


x 
< 
—_ 
Pd 


) 
P 


000001 
000001 


$ 
1 
1 
i 000001 
1 


010046 


oO 
= 


“s MIWANWYIW SE 


016720 
000001 
000100 


SELSuSnSol 
InN NONO 


6532 


Oo 
wi 
oO 
= 
~“ 
S 


000004 
000002 
737 001174 
001210 


w 
a 
w 

g 

N 


001210 
001212 
000004 


AAAAAO SSS. 


QYYVSSS 
SNSRRS * 
323828 

Ww 


Be 


737 016174 
+ 016722 

: 001214 
bos757 001174 


REP A Saas asa 


SESSTETETS TST SS. 


a a a kk ek A ek ek ek ek kk dd kd ed a eek ek ig me ae ed ee ed ed ed ee ed a ed a ed ed a aed ed ed A et a ot = 
AAO 
SV 


LLL LLLP PPP OA OAL PALO OAL Py Pe FP Fe Pe , 
er ee et at et et a et a et et er et et er er a ee a ee ee er ee a er ee er a a ee a a a ae a ee ae a ee ae a a a a 
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016722 
b16736 


016722 


001214 
001215 


000004 


001174 


016632 
000004 


001176 
000004 


MACY11 30(1046) 


SATY1: 
SATY3: 


SATY4: 
SATYC: 


1$: TST 


2$: t§ 


3$: 


12$: CLRB 


SMFLG: 
SLFLG: 


SFFLG: .BYTE 


VEN 
APTSIZE=200 


APTENV=001 
APTSPOOL=100 
APTCSUP=040 


Cc 7? 
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APT COMMUNICATIONS ROUTINE 


#1,SFFLG 
#1,SMFLG 


SATYC 
#1,SFFLG 
RO,=(SP) 
R1.=(SP) 
SMFLG 


#APTENV,SENV 


#APTSPOOL , SENVM 


MOV RO,SMSGAD 
;sPUT ADDR IN MAILBOX 
TB (RO)+ 


$ 
SMSGAD ,RO 
RO 


RO, SMSGLGT 
#4 , SMSGTYPE 


G 
(SP)+,R1 
(SP)+,RO 


;;LOG FLAG 


SEQ 0080 


3;TO REPORT FATAL ERROR 
33T0 TYPE A MESSAGE 


z3TO ONLY REPORT FATAL ERROR 
:;PUSH RO ON STACK 
t:PUSH R1 ON STACK 
::SHOULD TYPE A MESSAGE? 
scIF NOT: BR 
S:O0PERATING UNDER APT? 
i} SHOULD SPOOL MESSAGES? 
T:GET MESSAGE ADDR. 
- RETURN ADDR. 
z:SEE If DONE W/ LAST XMISSION? 
T:1F NOT: WAIT 
z:FIND END OF MESSAGE 
::SUB START OF MESSAGE 
[:GET MESSAGE LNGTH IN WORDS 
?:PUT LENGTH IN MAILBOX 
?:TELL APT TO TAKE MSG. 
z:PUT MSG ADDR IN JSR LINKAGE 
. RETURN ADDRESS 


33PUSH 155946 on STAC 
::CALL TYPE MACRO 


z:SHOULD REPORT FATAL ERROR? 
szIF NOT: BR 

::RUNNING UNDER APT? 
s:FINISHED LAST MESSAGE? 
t:1F NOT: WAIT 

33 OR # 

::BUMP RETURN ADDR. 
z:TELL APT TO TAKE ERROR 


CLEAR FATAL 
He y4 LOG FLAG 


33POP STACK INTO R% 
33POP STACK INTO RO 


7 RETURN 
33MESSG. FLAG 


s3FATAL FLAG 


mn = ee ee 


i 
! 


‘KWVTTA DISAGNOSTIC MAINDEC=11=CNKWA~A 
‘CNKWAA.PT1 =»: 16=DEC=82 15:38 


yee 017064 000024 
737 000300 000026 


6776 000024 


ee a ee — 


000024 


on 
Sx 
o 
oo 
—_ od 
~~ 
Ww 
~ 
oo 
—_ 
~ 


SENSO 


737 016724 000024 
Hf 4 000300 000026 


ono 
at od od 


w 


o—-QQooocecscso 
2 s 


ab 
~“S 
S 
Nm 


000002 


aseaaa 
s 


005015 047520 042527 


SOooooooqoooooooooooooeo 
pr oer er er ee er ee ee er er ee ee ee wt 


BISSERS 


itotetetetetetetetetettetrte rte Triatetatetatetviatatetetetntp ptr te trtpatatataa 
ewww wewwew COCs eeneemaeameOCCCC mute 
NN ee eT ST Tee 
33 sssssss3s 
MmnN—— 
NOrO 
SD 
—_ 
mM 
o 
N 
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— 
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POWER 


- SBTTL 


WN AND UP ROU 
POWER DOWN AND UP ROUTINES 


SRA AAEAAAAAEAAAAEEEAESAEAAEREEAAERARAAAAAAAAEAARARAEKEAAAAEERAAAEE 


“POWER DOWN ROUT INE 


SPURDN: 


#SILLUP,@#PWRVEC ; +48 ‘. FAST UP 


MOV #PR6,a# agPuRVEC PRI 

MOV RO,-(SP) ::PUSH RO ON STACK 
MOV R1.=(SP) :2PUSH R1 ON STACK 
MOV R2,-(SP) ::PUSH R2 ON STACK 
MOV R3,=(SP) +:PUSH R3 ON STACK 
MOV R4,=(SP) +:PUSH R4 ON STACK 
MOV RS, =(SP) ::PUSH RS ON STACK 
MOV asur,-(SP) [:PUSH @SWR ON STACK 
MOV SP, SSAVRO t:SAVE SP 

MOV #SPWRUP ,a#PWRVEC :;SET UP VECTOR 
6R 72 3:HANG UP 


SAE EEAAAAAAAAAEAEEAAEAEAEEEAEAAAAAAAAAAAAAAAAAAAAERAAREREREEEEEER 


*POWER UP ROUTINE 
MOV 


SPURUP: 


1$: 


SPWRMG: 
SILLUP: 
SSAVR6: 0 
SPOWER: 


tte yt , @#PWRVEC fbeE sp FOR FAST DOWN 


MOV $$ 

CLR SSAVR6 SIWAIT LOOP FOR THE TTY 

INC SSAURG T:WAIT FOR THE INC 

BNE 1$ [OF WORD 

MOV (SP)+,aSwWR ::POP STACK INTO aSWR 

MOV (SP)+,R5 $3 STACK I 

MCV (SP)+.R4 [:POP STACK INTO R4 

MOV (SP)+.R3 [:POP STACK INTO R3 

MOV (SP)+_R2 t:POP STACK INTO R2 

MOV ($P)+.R1 33POP STACK INTO R1 

MOV (SP)+-RO =:POP STACK INTO RO 

MOV #SPWRON, @*#PWRVEC ::SET UP THE POWER DOWN VECTOR 
MOV #PR6, a#PWRVEC+2 :PR10:6 

TYPE REPORT OMe POWER FAILURE 

gWORD SPOWER t:POWER FAIL MESSAGE POINTER 

HALT THE POWER UP SEQUENCE WAS STARTED 
BR 72 +! BEFORE THE POWER DOWN WAS COMPLETE 


33PUT THE SP HERE 
eASCIZ <15><12>°'POWER’’ 


-EVEN 


i eTHIS ROUTINE WILL PROTECT THE PROGRAM 
; *FROM INTERUPTS (BAD ONES). 


j¢THE TRAP ta IS SET UP FOR 
JSR rec. Rd. 


ILLEGAL INTERRUPTS OR INTERRUPTS TO THE WRONG VECTOR 
:*GOTO THE VECTOR AND PCITK UP THE °*.+2°° AS AN ADDRESS 


z*AND °4700°* AS NEW STAT 


» 
:t 
-* 


SEQ 0081 


US. 
S*THE .+2 AS A PC WILL CAUSE EXECUTION OF THE “JSR PC,RO" (AN ILLEGAL INSTR.). 


| E 
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CNKWAA.P11 16=DEC=8 OWN AND UP ROU SEQ 0082 
7280 3*AND TRAP TO LOCATION °4°*. IN LOCATION 4 WE HAVE A 
7281 S*POINTER HERE. IF THIS CONDITION ae wat TRAP TO LOC. 4. 
72 s*WE WILL REPORT IT IN THE SAME MANNER THAT WER WOULD 
728 3*REPORT ANY OTH R 
7284 3*IF a BUSS ERROR TRAP DID OCCUT AND CAUSE A TRAP TO 4. 
ree? S*WE WILL HALT. 
7287 017102 01167 017146 IOTRD: MOV (6), TRTO sGET WHERE WE CAME TO. 
reas 017106 162757 000004 017146 SUB #4, TRTO sFORM READ ADDR. 
7290 017114 023727 017146 001000 CMP TRTO, #1000 3D1D TRAP FROM LESS THAN ADDR. 1000? 
63.4} 017122 903402 BLE 2s :NO-CONTINUE. 
7293 017124 000000 1$: HALT 3A_BUSS ERROR TIME OUT TRAP BROUGHT US HERE. 
rey sADDRESS CONTAINED IN TRTO. 
rene 017126 000776 BR 1$ sDON’T ALLOW CONTINUE. 
7298 017130 016637 000004 017150 2$: MOV 4(6), TRFRO 3GET TRAPPED FROM ADDR. 
e444 017136 062706 000004 ADD #4,SP 3/ADD #4 TO STACK POINTER. 
3s SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
7301 017142 104004 ERROR 4 sERROR! ILLEGAL alae | OR 
7302 INTERRUPT TO WRONG VECTOR. 
7303 31F TEST NO. IS LESS THAN 10,1TS 
7304 LIKELY (BUT NO EXCLUSIVELY)TO BE A 
7305 DEVICE OTHER THAN THE DEVICE UNDER TEST. 
7306 IF THE INTERRUPT OCCURED 
7307 : NG _AN ERRUPT TEST, 
7308 SUSPECT A PROBLEM WITH THE Device UNDER TEST. 
:IF THE ADDRESS THE INTERR 
7310 sVECTORED TO IS WITHIN THE RANGE OF 
7311 VECTORS ASSIGNED TO T EVICE, 
7312 sTHEN I°D SUSPECT THE DEVIC 
7313 z INTERRUPTD ILLEGALL 
7314 z1F THE ADDRESS THE INTERRUPT 
7315 sVECTORED TO IS OuTS F THE 
7316 E ASSIGNED TO THE DEVICE 
7317 31°D SUSPECT THAT T 
7318 DEVICE PUT THE WRONG INTERRUPT 
7319 sVICTOR ON THE BUS DURING THE INTERRUPT 
7320 =PROCESS. 
7321 NOTE: 
7322 3FOR THIS ERROR = » ON T USE 
7323 “LOOP ON ERR TION. 
7324 FALSO EXPECT THAT THE INTERRUPT yest TO 
7325 3WILL_REPOT THAT THE DEVICE DION'T 
7326 S INTERRUPT. 
7327 ;FOLLOW THE RECOMMENDED PROCEEDURE 
7328 IN THE DOCUMENT (ON THIS DIAGNOSTIC) 
7329 TFOR LOOPING ON TEST. 
7330 
7331 


2s SSSSSSSSSSSSSSSSSSSSESES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


KWV11A DISAGNOSTIC MAINDEC=11~CNKWAA MACY11 p30 1046) 16-DEC-82 Fis. "42 PAGE 83-12 
CNKWAA.P11  16=DEC=8 POWER DOWN AND UP R SEQ 0083 
7332 017144 000002 RTI 
7333 017146 000000 TRTO: .WORD 0 ZCONTAINS ADDR. WE TRAPPED OR INTERRUPTED TO. 
7334 017150 000000 TRFRO: .WORD 0 [CONTAINS ADDR. WE TRAPPED OR INTR. FROM. 
7335 .SBTTL TRAP DECODER 
(2) J AAHAAAAAASAAAAAA SSSA KEES AEE AAAAAAHEEHAAEAARAAEREAARAAEAEAENREE 
(1) SSTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE TTRAB INSTRUCTION 
(1) [*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
(1) S*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
(1) :*G0 TO THAT ROUTINE. 
(1) 017152 010046 STRAP: MOV RO,=(SP) AVE RO 
(1) 017154 016600 000002 MOV 2(SP) RO i cer TRAP ADDRESS 
(1) 017160 005740 TST =(RO) :BACKUP BY 2 
(1) 017162 111000 MOVB = (RO) ,RO $3GET RIGHT BYTE OF TRAP 
(1) 017164 006300 ASL RO :POSITION FOR INDEXING 
(1) 017166 016000 017206 MOV STRPAD(RO) RO :FINDEX TO TABLE 
(1) 017172 000200 RTS RO +:G0 TO ROUTI 
(1) 
C z:THIS 1S USE TO HANDLE THE "'GETPRI'’ MACRO 
(1) 017176 011646 STRAP2: MOV (SP) ,=(SP) z:MOVE THE PC oun 
(1) 017176 016666 000004 000002 MOV 4(SP5,2¢SP) MOVE THE PSW DOWN 
(1 017204 000002 RTI + :RESTORE THe PSwW 
(3) .SBTTL TRAP TABLE 
(3) z*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(3) :*BY THE TRAP’ INSTRUCTION 
(3) : ROUT INE 
(3) 017206 017174 STRPAD: .WORD $TRAP2 
(3) 017210 01617. $T’PE  ;;CALL=TYPE TRAP+1(¢104401) TTY TYPEOUT ROUTINE 
(3) 017212 014316 STYPOC ::CALL=TYPOC | TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 017214 014272 STYPOS ;;:CALL=TYPOS TRAP+ 3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 017216 014332 STYPON ::CALL=TYPON  TRAP#4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
(3) 017220 014520 STYPBN ;;CALL=TYPBN TRAP+5( 104408) TYPE BINARY (ASCII) NUMBER 
(3) 017222 015470 SGTSWR ::CALL=GTSWR § TRAP*6(104406) GET SOFT-SWR SETTING 
(3) 017224 015420 SCKSWR ;;:CALL=CKSWR | TRAP+7(104407) TEST FOR CHANGE IN SOFT-SwR 
(3) 017226 015702 SRDCHR i: CALL ROCHR TRAP +10(106610) TTY TYPEIN CHARACTER ROUTINE 
(3) 017230 016022 SRDLIN LIN P+11(104411) TTY TYPEIN STRING ROUTINE 
7336 017232 005015 046103 041517 EMI: ~ASCIZ PE Sars ENT sre FUNCTION ERROR/ 
017240 020113 051123 043040 
017246 047125 052103 047511 
017254 020116 051105 047522 
017262 000122 
7337 017264 005015 046103 041517 EM2:  .ASCIZ <15><12>/CLOCK SR DATA ERROR/ 
017272 020113 051123 042040 
017 052101 020101 051105 
017306 04 522 000122 
7338 017312 005015 046103 041517 EM3:  .ASCIZ <15><12>/CLOCK BR DATA ERROR/ 
017320 020113 051102 042040 
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15:38 TRAP TABLE 


T 
6-DEC 


1$ 
CNKWAA.PT1 SEQ 0084 

017326 052101 020101 051105 
g173se OePso2 ODIs 

7339 017340 044 925138 051105 EM4: eASCIZ <200>/ INTERRUPT ERROR/ 
017346 052522 052120 042440 
017354 O5S1122 051117 

7340 O17361 015 041412 052917 EMS: — .ASCIZ_<15><12>/COUNT REG. ERROR/ 
017366 052116 051040 043505 
017374 020056 051105 047522 
017402 900122 

7341 017404 005015 047503 On 71s3 EM11: .ASCIZ <15><12>#COUNT ERROR # 
017412 020124 051105 047522 

_ 017420 020122 000 

7342 017423 015 041412 052517 EM12: .ASCIZ <15><12>#COUNT FUNCTION ERROR# 
017430 052116 043040 047125 
017436 052105 047511 020116 
017444 051105 047322 00012 

7343 017452 005015 046103 041517 EM16: eASCIZ <15><12>#CLOCK INTERRUPT ERROR # 
017460 020113 047111 042524 
017466 051122 050125 020124 
017474 051105 47522 20122 

7344 017503 015 051012 050105 €&M20: eASCIZ <15><12>#REPEATABILITY ERROR # 
017510 040505 040524 044502 
017516 044514 054526 042440 
017524 051122 051117 000040 ; 

7345 017532 005015 042101 051104 EM26:  .ASCIZ <15><i2>#ADDRESSING ERROR# 
017540 051505 044523 043516 
017546 042440 051122 05111 

rug 017954 

7347 017555 015 042412 051122 DH: eASCIZ <15><12>#ERRPC ASR WAS S/B4 
017562 041520 040411 051123 
017570 053411 051501 051411 
017576 041057 000 

7348 017601 015 042412 051122 DH3: eASCIZ <15><12>#ERRPC ABR WAS S/B4 
017606 041520 040411 051102 
017614 053411 051501 051411 
017622 041057 000 

7349 017625 200 051105 030i Se DH4A: .ASCIZ <200>#ERRPC TO FROM ADDR.# 
017632 020103 020040 047524 
017640 020040 020040 020040 
017646 051106 046517 040440 
017654 042104 027122 000 

7350 017661 015 042412 051122 DHI2: .ASCIZ <15><12>#ERRPC ASR # 
017666 041520 040411 051123 
017674 000011 

7351 017676 005015 051105 030138 DH20: .ASCIZ <15><12>#ERRPC ASR 2NDCNT ISTNCT 3RDCNTS 
017704 004503 051501 00452 
017712 047062 041504 052116 
017720 030411 052123 041516 
017726 004524 051063 041504 
O177%4 052116 000 

7352 OIC7S7 | O13 O42u12 051122 DH26: — .ASCIZ <15><12>HERRPC CLOCK ADDR.# 
017744 061520 041411 047514 
017752 045503 040440 042104 
017760 027122 — 000 


SS SS ee 


H 7 
IC_MAINDEC-11=CNKWA=A T's — 16-DEC=82 15:42 PAGE 83-14 


KWV11A DISAGNOST ° 
CNKWAA.P11  16=DEC-82 15:38 TRAP SEQ 0085 
7353 
7334 017764 EVEN 
7356 017764 001116 001376 001126 DT1:  .WORD SERRPC,ASR,S$BDDAT,$GDDAT.O 
017772 001124 000000 
7357 017776 001116 001400 001126 DT3: .WORD SERRPC,ABR,SBDDAT,$GDDAT,0 
020004 001124 000000 
7358 020010 001116 017146 017150 DT4: .WORD SERRPC,TRTO,TRFRO,O 
020016 000000 
7359 020020 001116 001376 000000 D112: .WORD SERRPC,ASR.O 
7360 020026 001116 001376 001126 DT20: WORD SERRPC ASR. *SBDDAT, SGDDAT, $TMPO,0 
020034 001124 001420 000000 
7361 020042 001116 001376 001126 DT22: .WORD SERRPC,ASR,SBDDAT,STMPO,0 
020050 001420 000000 
7362 020054 001116 001420 000000 0126: .WORD SERRPC,STMPO,0 
7364 020062 000000 000000 DFO:  .WORD 0,0 
7366 z: THE FOLLOWING MACRO CALL TO CNMAC2.SML LIBRARY WAS ADDED TO INIT 11/21 
7367 52 SPECIFIC VECTORS. 
7368 020066 POINTS. :SAVE POINTER 
1) 000100 =100 
(1) 000100 020066 SCLKVEC sLKVEC_ HANDLER 
(1) 000102 000300 0 : INTERRUPT HANDLER PRI 
(1) 000140 .=140 SBRKVEC 
(1) 000140 170000 170000 30DT START ADDRESS 
(1) 000142 000300 300 “PRIORITY 
(1) 020066 ~=POINT “RESTORE POINTER 
(1) 020066 104401 020074 SCLKVEC: TYPE ,CLKMES 
(1) 020072 000000 HALT 
(1) 020074 005015 045514 042526 CLKMES: .ASCIZ 21 5><12>/LKVEC INTERRUPT = DISCONNECT LTC / 
(1) 020102 020103 047111 042524 
(1) 020110 051122 050125 020124 
(1) 020116 020055 044504 041523 
(1) 0201246 047117 042516 052103 
(1) 046040 041524 000040 
7369 END 


Pont oe en ee 


KWVTTA aaa He C=11=CNKWA-A 
CNKWAA.P11 To-DECwae 15:38 


ABASE = 174420 57768 5786 

ABR 001400 28008 5930* 
6315 6336 
6515* 652 
68728 97* 

164 188 

,ACDW1 = 000000 5786 

/ACOW2 = 000000 5786 

-ACPUOP= 000000 5786 

|ADDWO = 000000 5786 

|ADDW1 = 000000 5786 

ADDW10= 000000 5786 

|ADDW11= 000000 5786 

| Abou és 000000 5786 

| ADDW13= 000000 5786 

ADDW14= 000000 5786 

ADDW15= 000000 5786 

apbug = 000000 5786 

ADDW3 = 000000 5786 

ADDW4 = 000000 5786 

ADDWS = 000000 5786 

ADDUG = 000000 5786 

ADDW7 = 000000 5786 

ADDWB = 000000 5786 

ADDW9 = 000000 5786 

ADEVCT= 000000 5786 

= = 000000 3786 

= 

AENVM = 000000 ee 

AFATAL= 000000 5786 

AMADR1= 000000 5786 

AMADR2= 000000 5786 

AMADR3= 000000 5786 

AMADR4= 000000 5786 

AMAMS1= 000000 3786 

wunate 000000 5786 

AMAMS4= 000000 5786 

AMSGAD= 000000 5786 

AMSGLG= 000000 5786 

AMSGTY= 000000 5786 

AMTYP1= 000000 5786 

AMTYP2= 000000 5786 

AMTYP3= 000000 5786 

AMTYP4= 000000 5786 

ANYKEY 013740 986 6999 

APASS = 000000 7 

APRIOR= 000200 57784 86§$7 

'APTCSU= 000040 7264 726 

| APTENV= 000001 7260 7264 

|APTSIZ= 000200 5899  7265# 

| APTSPO= 000100 7264 72654 

ASR 001376 58634 85 
60¢ * 6083+ 
6173* 6177¢ 
6313¢ 6315¢ 


we 
Ww 
we 
w 


MACY11 3 
CROSS RE 


5863 
5931*« 
6354 
65418 
$207 
357 


0(1 
FERENCE TABLE == USER S 
5864 

5969 6060* 6063 
6364* 6380" 6410 
6574" 6715 6757 
6916 6937 

71138 

968 6016 6017+ 
6089 6110* 6112¢ 
6207 $c638 666% 
6340" 6342 6554¢ 


MBOLS 


6142¢ 
4 30e 
6765 


6957 


7 
046) 16=DEC-82 ls: pe Sana 84 


® 
is 
6988 


6177 

6499 

7000" 
000 


“~ 6022 


si 
e 
6386 


6023 
6150* 
6310 
6408+ 


J? 
Ic ee MACY11 30 16-DEC-82 15:42 PAGE 84-1 
15:38 MBOLS 


KWVTTA DISAGNOST (1046) 
11 16=DEC CROSS REFERENCE TABLE <= USE® SY 


CNKWAA.P 


14* = 641 6429* 6431" 6433 6635 6442 6493"  6496* 6499¢ 6502+ 6505* 6508 
6514* 519. 6519* 6525* 65 ; 3336 Setbe rs $29 6573* 6576" 6577 6588+ 
a ge Se St 


68 ¢ 6697¢ 6698s 6¢ 6701 6704 6714e 6716* 6722 

6738* 6740¢ 674 6752* 6756* 6760* 6761¢ 6765* 6771* 
¢ 6794 6867 * 6869* 6871 6872¢ 6896« 6898 
e 


901" 6905"  6916« 6936s i 941s G955* 6 y27 69660 6967 982+ 6984e 
7229¢ 








009+ 7013+ 7015* 70198 054e 7058 7085* 7258* 7160* 7161* 71628 71630 
7187* 7189e 7190" 7193 7230* 7231 «07235 «Ss 7356S 7359 «= 7360S 7361 
G= 000000 5786 
ATESTN= 000000 5786 
AUNIT = 000000 5786 
AUSWR = 000000 7 
-AVECT1= 000260 5777e 5786 S865 5866 58675868 
= 
'BITO = 000001 5774@ 6025 6146 6150 6177 6312 «6315. 6340 «= 6354 6382 64126418 
35 64934 6499 6502 6505 630863176525 6596 670567346738 
| $740 676167656778 686 6869 6871 6872 6916 6957 6988 
'BITOO = 000001 57748 
'BITO1 = 000002 7748 
'g1T0@ = 000004 57748 
BITO3 = 000010 7748 
BITO4 = 000020 57748 
BITOS = 000040 57748 
BITO6 = 000100 57748 
'BITO? = 000200 57748 
Ht ce are 
= 
th eC Cs 
|BIT10 = 002000 57748 6221 57 6781 6869 71 6872 6901 6941 7260 
BIT11 = 004000 5774@ 6018 6150 6177 6221 6257 6315 6354 6493 6496 6499 6502 6505 
6508 6525 6760 6765 6777 6787 6867. 6868 6869 6871 6872 6916 6957 
6988 7000 7019 726 
BIT12 = 010000 74# 6221 6257 6508 6701 6705 6722 6746 7235 
BIT13 = 020000 57748 6017 89 7260 
BIT14 = 040000 57748 6016 6596 += 7262 
BIT15 = 100000 74# 6705 
BIT2 = 000004 5774@ 6023 6150 6177 6277 6315 6354 6493 6496 6499 6502 6505 6508 
6525 6765 6787 6867 6868 686° 6871 6872 6916 6957 6988 7000 7019 
BIT3 = 000010 5774# 6022 6761 6778 
BITS = 000020 774@ ©6021 6312 6340 «6382. 6412 
BITS = 000040 5774#@ 6020 6312 6340 6376 6382 6412 
BIT6 = 000100 774# ©6019 
BIT? = 000200 57748 
BIT8 = 000400 57748 6313 634 6414 6433 6519 6577 7190 7230 
BIT9 = 001000 57748 6150 6177 264 6290315354 «493 G49 649965026505 6508 
6525. 6597 6698 6735 6736 676567876867 6868 686968716872 
905 6916 6945 6957 6988 7000 7019 7161 7163 
BPTVEC= 000014 7748 
BRKVEC= 000140 57768 
CKSWR = 104407 157. 7186 «= 7228_~=—— 7260S 7262—Ss733S8 
CLKMES 020074 
CR = 000015 57748 7264 
CRLF_ = 000200 57748 8 7264 
DDISP = 17757 57748 5786 5899 
DFO. O02 8 5805 5812 5819 5826 5833 5840 5847 5854 5861 73648 


AGNOSTIC MA C=11-CNKWA=A 
TO-DECwae 15:38 


KWVTTA DIS 
CNKWAA.P11 
DH1 017555 5796 5803 
DH12 01766) 5831 ogee 
DH20 0176 $ 5845 3514 
+ 01773 5859 73524 
017601 5810 73484 
A 017625 5817 73498 
DISPLA 001142 35868 5899« 
DISPRE 000174 57528 5899 
OR 001414 58708 6222 
/DR2 001416 58714 die 
iDSWR = 177570 57748 86 
/OT1 017764 5797 5804 
iDT12 020020 5832 5839 
|\DT20 020026 584 7 
DT22 020042 585 73614 
DT26 020054 5860 73624 
oT3 017776 5811 735784 
14 20010 5818 73584 
EMTVEC= 5774# 5899« 
EmM1 017232 5795 73364 
EM11 17404 5851 73414 
EM12 017423 5830 73420 
EM16 017452 5837 73434 
EM2 017264 5802 73374 
EM20 017503 5844 73444 
EM26 017532 5858 73454 
EMS 017312 5809 73384 
EMG 17340 aei¢ Caine 
EMS 17361 582 73404 
ENDP 013056 6979 7011 
ERCNT 001432 5877# 5915* 
ExrVEC= 5774# 5899* 
EXxs 001440 58804  5888* 
GNS = eeteee 3308 5912 
GTSWR = 104406 5908 73354 
HT = 11 57748 7264 
INIT 001526 5886 58994 
IOTRD 017102 5750 904 
IOTST1 014060 7155 71574 
IOTST2 014150 7184 71864 
IOTSTS 014230 7226 72284 
IOTVEC= 000020 5774# § 5899* 
LCNT 001442 58814 7087 
LF = 000012 57748 7264 
LKVEC = 000100 57748 
L 0023 59194 7073 
MDEVCT 001434 58784 5914* 
ODTST = 17 57744 
OITST1 014046 3766 71554 
OITST2 014136 576 71844 
OITSTS 014216 764 2264 
PI = 17777 57744 
PIRQVE= 000240 57744 
POINT = 02 73684 
PRIOR 00141 58694 
i 





K 7 
MACY11 30(1046) 16-DEC-82 15:42 PAGE 84-2 
CROSS REFERENCE TABLE -- USER SYMBOLS 


73508 


7260* 
6277 
6257* 
5899 
5825 
73598 


5852 


7262* 
6346 


73564 


7030 
7260s 


5968 
5897* 
6985 


7185 
7167 
7196 
7238 
7106 


7052 


73478 

70424 

5969* 7055 7056* 7071*  7076*  7262* 

5910 6219 6255 $673 6344 63571 6393 
6998 7016 7065 7067 7069 7081 7083 
7227 

7091* 


6977 
7106 


SEQ 0088 


7010 
7114 


KWVTTA 


DIS 
/CNKWAA.P11 
‘PRO = 000000 
‘PRI == 000040 
/PR = 000100 
PR = 000140 
PRG = siete 
PRS = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 177776 
PWRVEC= 000024 
QSTART 001444 
RDCHR = 104410 
ROLIN = 104411 
RESVEC= 000010 
ROTATE 001426 
RSTART 002144 
STACK = 001100 

TART = 001506 
STKLMT= 177774 
SwR 001140 
SWREG 000176 
SwO = 000001 
swoO = 000001 
$w01 = 000002 
ae = 000004 
SwO3 = 000010 
$w04 = 000020 
SwoS = 000040 
$w06 = 000100 
SwO7 = 000200 
Sw0o8 = 000400 
swo9 = 001000 
Swi = 000002 
Sw10 = 002000 
SW11 = 004000 
Sule = 010000 
SWw13 = 020000 
SW14 = 040000 
Sw15 = 100000 
SW2 = 000004 
SW3 = 000010 
SW4 = 000020 
SWS = 000040 
SW6 = 000100 
SW7 = 000200 
SW8 = 000400 
Sw9 = 001000 
TBITVE= 000014 
TKVEC = 000060 
TPVEC = 000044 
TRAPVE= 000034 
TRFRO 017150 
TRTO 017146 
TRIVEC= 000014 
TSTCNT 001436 





AGNOSTIC 


- 9 7 Weenie 


4 
73344 
7288* 


5889* 


7 
MACY11 30(1046) 16-DEC-82 t 15242 PAGE 84-3 
MBOLS 


CROSS REFERENCE TABLE <= USER SY 


7266 


7266* 
5918 7051* 7063 7092* 7260 


5908 6508 7260 7262 7263* 
5908 7263 


7358 
7290 §8«73334 7358 


5892* 5896* 7049 


7266* 


SEQ 0089 


-_-- 


Kwv1tA aga STI 


‘CNKWAA.P11 
TSTSTR 0014 
TS 3§ 





Ti 0024 
TST10 §=©.00 
TST11 §=6.003 
TST1 003440 
TST1 003536 
TST14 §©003634 
TST15 003732 
TST1 004022 
TST1 004112 
TST2 002514 
TST20 004164 
TST21 004246 
TST2 004374 
TST2 004522 
TST24 004610 
TST25 004 
TST26 004732 
TST2? 004766 

S13 002556 
TST30 005076 
TST31 005306 

$T32 005422 
TST33 5464 
TST34 005532 
TST3S 005662 
TST36 © ©006012 
TST37 142 

ST4 002654 
TST40 006272 
TST41 006422 
TST42 006562 
TST43 006724 
TST44 ©0067 
TST45 §©0071 
TST46 §=—.007210 
TST47 ©0072 

sT5 002752 
TST50 §©007359 
TSTS1 007442 
TST52 007576 
TST53 = 0077 

$154 010222 
TST55 §=.0010514 
TST56 §=©.011006 
TST57 011300 
TST6 003050 
TST60 011612 
TST61 012004 
TST62 012220 
TST63 012620 
1817 003146 
TYPBN = 104405 
TYPE = 104401 
TYPOC = 104402 





58884 


6220 
62614 
6276 


6369% 
6394 


65124 


6964 
7001 


73354 
5 


G-DECMB2 15:38. 


“CNKWA-A MACY11 30(1046) 
CROSS REFERENCE TABLE == USER 


6223 
6278 


6397 


6968 


70084 


5913 
7260 
7082 


7 
16=DEC-82 Mis: a + 84-4 


62384 
62874 


64064 


69744 


6985 6998 7016 7065 7067 7069 7081 
7261 7263 7264 7266 73354 7368 
7106 7261 7263 73354 


7083 


7106 


SEQ 0090 


7114 


KWV11A DISAGNOSTIC MAINDECS11~CNKUAMA 
CNKWAA.P11 16=DEC 15:38 
/TYPON = 104404 73354 
TYPOS = 104403 73358 
UTEST 0014 58764 5918 
|VECTP 001404 28668 5922* 
VECT1 001402 586 299 * 
'VECT2 001406 58674 5924s 
001410 58684 5926 
WSTART= 001472 5767 58914 
ZSTART 001774 5898 59024 
001 57854 
SASTAT= eeeeee Y 7265 
SATYC 01650 72654 
SATY1 016456 72654 
S$ATY3 01 264 72654 
SATY4 016474 7260 46 726 
SAUTOB 001134 57864 5908 
$BASE 001250 57864 865 
$BDADR 001122 57864 
SBDDAT 001126 57864 6016 
089* 1 
6354* 6356 
6765*  6787* 
6957*  6967* 
$BELL 001164 7864 7260 
IN 014572 72474 
$CDW1 001254 7864 
SCHARC 016452 72644 
SCKSWR 015420 2263 335 
SCLKVE 020066 73684 
SCMTAG 001100 57864 5899 
$CM3 = 000000 57864 
SCNTLG 016145 72634 
SCNTLU 016140 72634 
001222 57864 
S$CRLF 001171 57864 7260 
SDEVCT 001204 57864 5903 
EVM 001252 57864 
013730 71064 
013720 5783 71064 
SENDCT 013466 1064 
NULL 013734 71064 
NV 001214 57864 5908 
SENVM 001215 57864 5899 
OP 013432 71064 
SEOPCT 013460 71064 
SERFLG 001103 57864 7260 
SERMAX 001115 57864 5899 
RROR 014574 5899 2604 
SERRPC 001116 57864 7260* 
SERRTB 001256 7864 7261 
SERRTY 015002 7260 72614 
SERTTL 001112 7864 7260 
$ESCAP 001162 57864 5899 
T 001214 57864 
SETEND 001256 5785 57864 
$FATAL 001176 57864  7265* 


N 7 
MACY11 30(1046) 16=DEC-82 15:42 PAGE 84-5 
CROSS REFERENCE TABLE <= USER SYMBOLS 


7261 
7066 


7260 
7045 


7262* 
7262* 
7261 


7260 


7106 


5922 
5926 


7263 
7068* 


7264 
7264 


7356 


7262* 


7260* 


5924 
6595* 


7264 
7070 


7265 
7265 


7357 


6578 


7077 


7358 


7072* 


7082 


7359 


7086* 


7087 


7360 


7089* 


7361 7362 


SEQ 0091 


8. 8 
KWV1TA DISAGNOSTIC «OR beeammandte: MACY11 30(1046) 16=DEC=82 15:42 PAGE 84-6 








$ 
CNKWAA.P11 16=DEC-8 38 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0092 
SFFLG 016722 re63as 
SFILLC 001156 57864 
SFILLS 001155 57864 7264 
SGDADR 001120 57868 
SGDDAT 001124 57864 6016* 6017* 6018: 6019* 6020+ 60618 o0ee" 6023* 6024*  6025* 6060+ 3e 
6091* 6092*  6125* ol ees 6148+ 615 6175* 61 6202* 6240" 6357 6355* 6356 
6 636 6530* 6705* 6726* 6745* 6758+ 867* $3e3* $363* gerae 6872  6906* 
6908 6917 6946* 6948 6956*  6969*  6987* 018+ 6 357 360 
$GET42 013710 710 
SGTSWR 015470 726 7335 
D = 000001 5728 
SHIBTS 001000 57858 
SICNT 001104 57864 7262+ 
SILLUP gree 72664 
SINTAG 001155 57 7263 
ITEMB 001114 57864 7260* 7261 
SLF 001172 57864 7260 7263 7264 
SLFLG 016721 72654 
SLPADR 001106 5786# 5899 5968* 7262s 
SLPERR 001110 5786# 5899* 5968*  6338* 7260 7262+ 
SMADR1 001226 57864 
SMADR2 001252 57864 
SMADRS 001236 57364 
SMADR4 001242 57864 
SMAIL. 001174 5785 57864 5899 5908 7260 7262 7264 
SMAMS1 001224 57864 
SMAMS2 001230 57864 
SMAMS O01 $78 57864 
SMAMS4 1240 57864 
001002 57854 
SMFLG 016720 72654* 
016163 2634 
Ss 001210 57864 7265* 
SMSGLG 001212 57864 7265* 
SMSGTY 001174 57864 7265* 
S 016152 72634 
SMTYP1 001225 57864 
SMTYP2 001231 57864 
SMTYPS 001235 57864 
SMTYP4 001241 57864 
SMXCNT 015416 72624 
001154 57864 7264 
SNWTST= 000001 5 59694 60164 60174 60184 6019 60204 60214 60224 60234 60244 60254 60608 
60634 60814 6108 6139% 61664 6200 62584 62614 62874 6308 633534 63694 64064 
64274 64934 649 6499# 6502% 65054 6508 6512 65384 6569% 6590 66944 67124 
14 oe 67544 677 68674 6868 6869 68714 6872 68944 69354# 69748 70084 
SOCNT 014514 46a 
014516 7 eae" 
VER 01 305 £66 # 
ASS 20 578 7061 7106* 7262 


7264 


a ae ee Oe ee ee ~—— --— —- 


nn a ee ee —— 


nn a et ee 


| CNKWAA.P11 16=DEC-82 15:38 
'SROCHR 015702 72634 7335 
| SRD 


$RDSZ = 10 72634 

SRINAD 015732 71064 

SR2A_ = teeere YJ 7335 

SSAVRE= teeeee YJ 7335 

SSAVR6 017070 72664* 

SSCOPE 015136 5899 72624 

SSETUP= 00011 58844 5899 5908 

SSTUP = 177777 58844 

SSVLAD 015346 72624 

SSVPC = 0002 578 

$SWR = 167400 56834 5728 5730 
6021 6022 6023 


SSWREG 001216 57864 58 
SSWRMK= 000000 5730 7262 
STESTN 001200 57 7262* 
STIMES 001160 578 5899* 5968 
6081* 6108* 6139+ 
6512* 6569*  6712* 
7106* 7262+ 
$TKB 001146 7864 8 7113 7118 
$TKS 001144 578 711 7263* 
STMPO 001420 5872 §=5885* 5898 
7226* 7360 7361 
STMP1 001422 58734 
STMPS 001424 58744 6150*  6177* 
6787*  6867* 6868+ 
STN = 000064 7284 8657814 59684 
60254 606 60634 
62614 6274 6276 
64274 649 
67324 67544 677354 
69744 6995 
TPB 001152 57864 7264+ 
STPFLG 001157 57864 7264 
STPS 001150 57864 7264 
TRAP_ 017152 5899 73354 
STRAP2 017174 73354 
TRP = 000012 73354 
STRPAD 017206 73354 
STSTM 001004 57854 
STSTNM 001102 3068 5968*  7106* 
STTYIN 016130 726 
STYPBN 014520 72474 =67335 
STYPDS= seeeee YJ 7335 
STYPE 016174 72644 7265 7335 
STYPEC 016406 7263 72644 
STYPEX 016454 72644 
STYPOC pitas 72464 7335 
STYPON 01433, 72464 7335 


i a ne ee ne ee nee ee 


7260 


7262+ 


Cc. 8 
j|KWVT1A DISAGNOSTIC MAINDEC=11=CNKWA=A MACY11 30(1046) 16-DEC-82 15:42 PAGE 84-7 
CROSS REFERENCE TABLE == USER SYMBOLS 


SEQ 0093 


‘KWVTTA DISAGNOSTIC eS | ecememati MACY11 30(1046) 
CNKWAA.P11 16=DEC-82 15:38 
STYPOS pAsere 72468 7335 
‘SUNIT 001 8 578 
‘SUNITM 00101 57854 
‘SUSWR 001220 57864 
SVECT1 001244 57864 5905 7086 
SVECT2 001 38 57 
At 01515 reges 
SSGET4 " Branie 71 
oh ILL 01451 724684* 
OCAT= seeeee y £569 766 
= 020140 57348 574 57468 
5891 5895 5899 
26. 72634 7264 





7 
| «SASTA= eeeteee 72 
$x = 001000 


16=DEC-82 seco PAGE 84-8 


CROSS REFERENCE TABLE -- USER SYMBOLS 


57514 57548 5759 576 
6985¢ 69984 70164 706 
7266 73544 73684 


% 


57684 
70814 


57834 
71 


064 


57848 
71148 


57854 
7260 


SEQ 0094 


57864 
72618 


cco - a _<- < - Se 


E 8 
KWV11A DISAGNOSTIC <5 =~ amet MACY11 30(1046) 16-DEC-82 tT: I aaa 85 


| CNKWAA.P11 16-DEC-8 CROSS REFERENCE TABLE == MACRO N SEQ 0095 
ADTST 39368 5968 5969 
‘BUFLO 60274 $069 6063 
| COMMEN 7748 
448 6493 64 6499 650 6505 6508 
/CSROTA 9784 ore 601 9018 01 $860 g0e! 6022 6028 024 9023 
57884 79 5805 812 819 8 833 5840 847 854 8o 
DIVCH 6867 6869 6871 687 
686" 5 9 6016 6017 601 6019 6020 6021 6022 6023 6024 6025 6060 6063 _- 
610 6130 6134 6156 6161 6183 6188 eel) 621 6224 6227 6249 6253 6269 
627 6279 628 6294 6299 6317 6320 6348 6351 635 6360 6389 6400 640 6421 
6437 6440 649 64 6499 $308 6505 6508 6531 6534 6550 6553 6583 6585 6602 
6706 6709 672 6730 674 6751 6767 6770 6790 6793 6867 6868 6869 6877 
| 687 $919 913 6919 6923 9239 6953 6959 6963 6970 6972 6990 6 7002 7006 
| 702 025 031 70 7300 331 é 
/ENDCOM 15784 57748@ 
ENDPAS 0934 106 
| ERROR S774# 865 9 6016 6017 6018 6019 6020 6021 6022 6023 6024 6025 6060 6063 
6131 6157 6184 6213 bee 6250 6270 6280 6295 6318 6349 6359 6 6401 
osee 93 6496 6499 6502 6505 6508 532 6551 6584 6603 6707 $728 6749 
7 6791 6868 6869 6871 6872 6911 6920 6951 6960 6971 6991 7023 
7032 7195 72 7237 7301 
ESCAPE 6984 57748 
GETPRI 13128 57744 
TSWR 17718 57748 ‘59084 
INSTR2 2498 260 
LOCKM 65614 6571 6579 6582 6592 6598 6601 
MUTST Freres hb 968 5969 6016 6017 601 6019 6 6021 6 6023 6024 6025 § 
606 6108 6139 6 reat 6261 6039 rey 6039 6369 6406 7 64 
96 6499 6502 6505 6508 6512 6 6569 6 6694 6712 6732 6754 6773 6867 
$86 71 72 6934 6974 7008 
21534 7748 §=67265 7266 
POPSP2 149 5969 6587 6606 7075 7299 
4 21454 57748 7265 7266 
RDCLK 57114 61 6177 6315 6354 6493 6496 6499 6502 6505 6508 6525 6765 6787 6867 
6868 687 6872 6916 6957 6988 7019 
REPORT 54634 57748 
SCOPE 57748 6016 6017 6018 6019 6020 6021 6008 6023 6024 6025 6060 6063 6081 
6108 6139 6 62 6238 6261 6287 6308 63 6369 6406 7 6493 6496 6499 
6502 6505 6508 6512 6538 6569 6 66 6712 6732 6754 6773 6867 6868 6869 
687 6934 6974 7008 7042 
SETPRI 12 57748 
SETTRA 73354 
SETUP 13374 57744 5899 
SKIP 17334 57744 6217 6220 6223 6256 6274 6276 6278 6352 6292 6394 6397 6508 6954 
6 6968 6995 7001 
SLASH 1517#@ 57744 
SPACE 57744 
STARS 14854 57744 5783 5785 5786 5968 5969 6016 6018 6019 6920 2 60e¢ 6023 
6024 025 6060 6063 6081 6108 6139 6166 $200 reat oe6! 62 6308 63 6369 
6406 27 6493 6496 6499 6502 6505 6508 51 6538 8 69 590 34 6732 
6754 773 6867 6868 6869 6871 6872 6894 69 6974 8 106 246 24 7260 
7261 263 7264 265 7266 7335 


SWRSU 
TRMTRP 73354 


KWV11A DISAGNOSTIC MAINDECS 11 
CNKWAA.P11 16-DEC-82 15:38 
TYPBIN 2 57748 7106 
TYPDEC 20584 57744 
TYPNAM 1826# 57748 5908 
YPNUM 2025@ 57748 
TYPOCS 19784 56804 5774# 
‘TYPOCT 19418 57748 2066 
TYPTXT §=61894@ =5774@ = (591 
‘Z10T™ => 7120# «= 7145s 717% 
'2P21 6070# 6081 6108 
|2P25 61914 6200 
‘2P25A 62284 6238 
221 5970# 6016 017 
6499# 6502" 65054 
(SSCMRE 57864 
\SSCMTM = 57864 
SSESCA 17118 S774# 
SSNEWT 16628 57748 5968 
| 3 6081 6108 
6496 6499 6502 
| 6868 6869 6871 
SSSET 73350 
S$SETM 658 
SSSKIP 17664 5774# 6217 
964 968 6995 
-EQUAT 189% 5680# 5774 
| HEADE 614 56798 5728 
| -INIT 56584 57744 7368 
.SETTR 36 
SSETUP 12138 5679# 5884 
“SWRHI 1044 5680# 5730 
~SWRLO 57308 
- TRMTR 56794 
“$ACT1 5064# 56824 5783 
-$APTB 451 57864 
-SAPTH 53708 56824 5785 
“SAPTY 55474 56824 7265 
<SASTA 54178 
.SCATC 9324 56808 
-$CHTA 10476 56804 5786 
.$DB20 48124 
<$D1V. 45874 
“SEOP 22148 56814 7106 
-SERRO 27008 56814 7260 
-SERRT 28964 56814 7261 
‘ T 45234 
: 42294 5680# 7266 
“SRAND 43074 
-SRDDE 38914 
“$RDOC 37978 56794 
<$READ 33954 56814 7263 
~$R2A2 49588 
-SSAVE 396 
“$5820 47714 
.$SB20 48744 
“$SCOP 24544 56814 7262 
| 
i 


7082 
6985 


6019 
68744 


=CNKWA-A MACY11 30(1046) 
CROSS REFERENCE TABLE <= MACRO NAME 


8 
16=DEC-82 Fist ae .— 85-1 


7263 
7065 


7067 


6023 


7069 


6024 


7081 


6025 


7983 


63234 


7106 
6333 
6024 
6406 
6754 


6397 


7114 


64934 


SEQ 0096 


64964 


6954 


8 
KWVT1A DISAGNOSTIC a 1 enti MACY11 30(1046) 16-DEC-82 Sis: PAGE 85-2 
CNKWAA.P11 16-DEC=82 15:38 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0097 


-TSSUPR 

STRAP 40738 ©5679" = 7335 

SBIVPR 3287# 36798 7267 
2098 


(ISTYPE 29858 56814 © 7264 
s$TYPO Stige 56808 7246 


/, ABS. 020140 000 


| ERRORS DETECTED: 0 


| CNKWAA, CNKWAA/CRE /NL : TOC=CNMAC2.SML,CNKWAA.P11 
RUN-TI 19 18 t aie 

RUN-TIME RATIO: 79/38=2.0 
CORE USED: 35k "tO PAGES) 


